DANMARKS  STØRSTE  TASTE-IND  BLAD 


NR.  3/87 -KR.  34,85 


Færdige  programmer  til: 

•  COMMODORE  64/128  •  AMSTRAD  •SPECTRU 

•  ZX8 1  /LAM B DA /POWER  3000/MA RATHON 

•  BBC  •  ENTERPRISE  •  mJ^^^ 

Månedens 

sfierne-pra^rcim: 

cår-race 


Tast  ind: 

NU  ER  BASIC 
PÅ  DANSK 


KUN  med 
kvalitets-listninger 


2  ^ 


DET  TYKKE  TILBUD: 


Tegn  abonnement  på  Danmarks 
største  program-bibliotek . . . 


”TAST”  er  Danmarks  største  taste-ind  blad. 
Et  sandt  bibliotek  af  spændende  kvalitetsprogrammer, 
der  nu  udkommer  fast  hver  tredie  måned. 


r 


Tegn  abonnement  NU!  Ikke  bare  er 
det  den  billigste  løsning,  men  du  får  også 
bladet  bragt  til  døren  -  gerne  34  dage  før 

det  udkommer. 

Et  helt  år  koster  bare  122  kroner.  Eller  omkring 

en  krone  pr.  program  ... 


SEND  KUPONEN  IDAG! 


Ja  tak,  lad  mig  tegne  abonnement 
på  ”TAST”  i  et  år  (4  numre). 

Jeg  har:  Indsat  kr.  122,-  på  giro  9  40  60  77  □ 
Vedlagt  en  check  på  kr.  122,-  □ 

Navn _ 

Adresse _ 

Computer: _ 

Sendes  til:  TAST  Abonnement 
St.  Kongensgade  72 
1264  København  K. 


Kære  læser. 

Hvad  er  et  godt  program  værd?  Eller  kan  der  overhovedet 
sættes  pris  på  det? 

Vi  har  allerede  gjort  det.  Nemlig  ved  at  sætte  gevinstsum¬ 
men  for  "læsernes  bedste  program"  til  1.000,-  kolde,  dan¬ 
ske  kroner.  Måske  kan  der  slet  ikke  sættes  pris  på  et  godt 
program,  som  titusindvis  af  TAST-læsere  som  dig  selv  har 
nytte  af  dag  efter  dag,  uge  efter  uge.  Men  faktum  er,  at 
månedens  stjerne-listning  får  1 .000,-  kr.  kontant.  Og  end¬ 
da  skattefrit,  for  at  det  ikke  skal  være  løgn! 

Men  "we  ain't  stoppin'  yet".  Den  nye  præmiesum  er  nemlig 
ikke  den  eneste  nyskabelse  i  dit  dugfriske  TAST.  Se  bare  på 
La  Petite  Programme  (LaPP),  vores  nye  hot  spot  med  mas¬ 
ser  af  mini-programmer  og  små  friske  rutiner.  Eller  de 
spændende  programmør-profiler,  hvor  du  selv  kan  lure 
proff  erne  deres  detaljer  af. 

Jo,  TAST  er  en  succes  med  nyskabelser.  Dit  og  Danmarks 
største  taste-ind  magasin... 

Rasmus  Kirkegård  Kristiansen. 

Chefredaktør. 


4  De  professionelle 

-  afslører  deres  hemmeligheder 

29  Mastermind 

BBC 

8  La  Petite  Programme 

Masser  af  fikse  rutiner 

32  Regnskab 

Amstrad 

16  Dick  Hnpin 

Lambda/Power/m.fl. 

35  Ams-Fight 

Amstrad 

18  Ping  Pong 

Commodore  64/128 

38  Tegngenerator 

Commodore  64/128 

20  Road  Puzzle 

Commodore  64/128 

41  Light  Cycles 

Spectrum 

24  Car  Race 

Spectrum 

43  Peacemaker 

Amstrad 

26  Basic  på  dansk 

Commodore  64/128 

47  Joystick-troldmand 

Spectrum 

28  Buer 

Enterprise 


Ansvarshavende  udgiver 

Peter  E.  Jensen 

TAST- 

Distribution: 

Klaus  Nordfeld 

Bargholz  Offset  Repro 

Danmaiks  største  taste-ind  blad 

DCA 

Partner  Repro 

Samtlige  aftrykte  listninger  er  afprøvede 

Avispostkontoret 

Chefredaktør 

Lassen  Offset 

før  offentliggørelse.  Forlaget  betaler  skat¬ 

Rasmus  Kirkegård  Kristiansen 

Skovs  Bogbinderi 

tefrit  op  til  1000  kroner  for  godkendte  læ¬ 

Når  bladet  ikke  frem,  henvend  dig  da 

Redaktion: 

Tobisch  Fotografi 

serprogrammer.  Forlaget  har  ret  til  at  af¬ 
trykke  godkendte  programmer  i  bladet 

først  på  dit  lokale  postkontor. 

Henrik  Bang 

TAST 

og  må  offentliggøre  dem  på  andre  lager¬ 

Jacob  Heiberg 

St.  Kongensgade  72 

media.  TAST  accepterer  listninger  til  alle 

TAST  udgives  af  forlaget  Audio  A/S,  der 

Bjørn  Christ 

1264  København  K. 

markedets  datamater,  blot  skal  de  være 

også  udgiver  "SOFT",  "Alt  om  Data”, 

Tlf.  01  91  28  33 

skrevet  i  det  til  maskinen  mest  benyttede 

"COMputer",  "high  fidelity”,  "ny  elektro¬ 

Produktion: 

Postgiro-nr.  9  40  60  77 

sprog.  Afsender  garanterer  programmets 

nik”,  "Svenska  COMputer",  "Svenska 

Haslev  Fotosats 

Telefax  01  91  01  21 

originalitet. 

SOFT"  og  Hi-Fi-årbogen. 

'KUN  I  TAST: 


Sådan 

havde 

nogle  blade,  mest 

|ptr  r 


De  får  deres  programmer  i  bladene  og  tjener 
penge  på  dem. 

På  overfladen  ganske  almindelig  danskere  - 
bare  med  et  indbringende  bi-job... 

Her  fortæller  de  for  første  gang  åbent  om 
deres  små  tricks  og  hvorfor ,  netop  de  er  blevet 
bedre.  Råd '  der  er  guld  værd.  Direkte  fra  stjer¬ 
ne-programmørerne,  de  magiske  få..! 


for  pengenes  skyld,  men  for  at  få 
nye  udfordringer  hele  tiden.  For 
eksempel  harjeg  lige  sendt  endnu 
et  program  til  jer.  Det  er  lavet  i  ma¬ 
skinkode  og  forstørrer  bogstaver¬ 
ne  64  gange.  Selvfølgelig  sender 
jeg  programmerne  ind  når  de  er 
færdige,  for  det  er  naturligvis  også 
rart  at  tjene  penge  samtidig  med. 
at  man  hygger  sig.  Jeg  har  lige  af¬ 
sluttet  gymnasiet,  så  til  efteråret 
skal  jeg  ind  på  universitetet  og  læ¬ 
se  datalogi. 


maskinkoden,  jeg 
i  bøger  og  læst 
de  engelske  bla¬ 
de. 

Computeren  er  nu  ikke  kun  min. 
men  også  min  fars.  såjeg  kunne  ik¬ 
ke  beslaglægge  den  helt.  Men  når 
jeg  får  en  ide.  så  tænker  jeg  over 
den  i  ca.  en  uge  og  så  programme¬ 
rer  jeg.  når  jeg  får  tid.  Normalt  la¬ 
verjeg  BASIC  om  til  maskinkode. 
Jeg  har  lært  det.  jeg  kan.  ved  at 
læse  blade  og  prøve  mig  frem. 
godt  nok  har  jeg  haft  datalære  i 
skolen,  men  vi  lærte  ikke  noget 
særligt  -  så  det  giderjeg  i  hvert  fald 
ikke  mere. 

Jeg  har  ikke  så  meget  tid  til  at  pro¬ 
grammere.  for  jeg  går  på  EFG,  og 
skal  senere  på  HH. 


'// 


-  Hvis  jeg  bli¬ 
ver  god  nok,  vil 


\"-  Jeg  laver  det  1  jeg  arbejde 
lumulige."  L  med  EDB." 


Navn:  Anders  Munch 
Alder19  år 
By:  Dronninglund 
Program:  Headline 
Til:  C-64 

Bragt:  COMputer  3/87 
Gevinst:  500,-  kr. 

Programmet  Headline  er  egentlig 
skabt  på  en  ide  fra  Comal-80.  hvor 
der  findes  en  såkaldt  statuslinie, 
der  fortæller  alt.  man  bør  vide. 
Dvs.  hvor  meget  hukommelse,  der 
er  brugt  (og  tilbage),  om  man  er  i 
et  program,  quote-mode  o.l.  Så 
tænkte  jeg.  at  det  måtte  man  da 
også  kunne  gøre  på  en  64er.  og  så 
lavede  jeg  programmet. 


Det  er  rigtigt,  at  programmet  er  i 
maskinkode,  og  jeg  har  efterhån¬ 
den  også  check  på  65)0.  Jeg  pro¬ 
grammerede  naturligvis  i  BASIC, 
men  det  er  for  langsomt,  og  så  er 
der  så  meget  man  ikke  kan  gøre  - 
derfor  lærte  jeg  maskinkode.  Jeg 
lånte  en  bog  på  biblioteket,  en  me¬ 
get  let  bog.  der  forklarede  om  ma¬ 
skinkode,  så  jeg  selv  kunne  afprø¬ 
ve  det.  Henad  vejen  lærtejeg  hvad 
man  skulle  gøre.  forat  lave  såkaldt 
umulige  ting.  Men  da  jeg  ikke  hav¬ 
de  en  maskinkode-monitor  så  var 
det  meget  besværligt  at  lære  ma¬ 
skinkode.  Derfor  lavede  jeg  først 
en  monitor,  selvfølgelig  i  BASIC. 
Da  jeg  så  havde  check  på  maskin¬ 
koden,  lavede  jeg  en  hurtigere  i 
maskinkode.  Det  var  meget  sjovt 
og  ikke  så  svært,  som  jeg  troede! 
Nu  beskæftiger  jeg  mig  mest  med 
at  forbedre  BASIC.  dvs.  jeg  laver 
æ-ø-å.  ny  BASIC,  flytter  hukom¬ 
melse  og  andet,  der  tidsmæssigt 
er  umuligt  i  normal  BASIC. 

Når  jeg  får  en  ide  til  et  program, 
skal  det  programmeres  så  hurtigt 
som  muligt,  og  når  jeg  sidder  og 
programmerer,  får  jeg  ideerne 
samtidig.  Jeg  programmerer  ikke 


Navn:  Jørgen  Andersen 
Alder:  16  år 
By:  Virum 
Program:  Hires  64 
Til:  C-64 

Bragt:  COMputer  2/86 
Gevinst-,  500.-  kr. 


Hires  64  er  et  maskinkodepro¬ 
gram.  der  gør  det  meget  lettere  at 
tegne  grafik  på  64'eren.  Det  giver 
nemlig  mulighed  for  at  slette  høj¬ 
opløsningsskærmen  med  maskin-  ■ 
kode  (det  er  ca.  3000  gange  hurti¬ 
gere  end  BASIC),  tegne  linier  og 
sætte  punkter.  Kort  sagt  alt,  man  ■ 
har  lyst  til  af  grafik,  kan  laves  me¬ 
get  lettere  med  Hires  64.  Jeg  fik 
egentlig  ideen,  fordi  jeg  syntes, 
det  var  for  besværligt  at  lave  gra¬ 
fik  på  64'eren  og  da  jeg  begyndte 
at  interessere  mig  for  maskinko¬ 
de.  lavede  jeg  programmet  udfra 
et.  jeg  så  i  Reference-guiden.  Det 
tog  cirka  to  dage  at  lave,  for  jeg 


"-  Jeg  pro¬ 
grammerer 
bedst  om 
natten!" 


le*** 


Navn:  Carl  Erik  W.  Sørensen 

Alder:  16  år 

By-.  Tommerup  St. 

Program:  Lærenem 
Til:  C-64 

Bragt:  COMputer  1/87 
Gevinst:  500,-  kr. 

Jeg  læste  om  ekspertsystemer, 
og  lavede  et  adventureprogram 
udfra  ekspertsystemet  (dvs.  kun¬ 
stig  intelligens).  Først  læstejeg  en 
masse  teori,  og  så  vidste  jeg  altså 
nok  til  at  lave  f.eks  "lærenem" 
(Lærenem  er  et  program,  der  kan 
lære  af  dine  indtastninger,  red.). 
Jeg  sætter  mig  ned  og  taster,  når 
jeg  er  i  humør  til  det.  men  jeg  har 
ikke  meget  tid  i  øjeblikket,  for  jeg 
går  i  første  G  på  matematisk  linie. 
Det  er  dog  sådan,  at  når  jeg  får  en 
ide.  så  tænker  jeg  meget  over 
hvordan,  den  kan  løses,  og  så  sæt¬ 
terjeg  mig  hen  og  taster,  og  jeg 
glemmer  helt  tiden.  Så  sommeti¬ 
der  kan  det  godt  blive  sent  (Fak¬ 
tisk  så  programmerer  jeg  aller¬ 
bedst  om  natten!). Jeg  er  ikke  så 
god  til  maskinkode,  for  jeg  har 
nemlig  kun  læst  en  lille  smule  i  en 
bog  om  assembler,  og  så  har  jeg 
naturligvis  prøvet  at  lege  med  in¬ 
struktionerne.  så  mine  program¬ 
mer  er  i  BASIC  eller  COMAL-80. 
Jeg  er  iøvrigt  i  gang  med  et  spil. 
det  er  en  blanding  af  rum-adventu- 
re-arcade  og  plottet  er  næsten 
som  Starwars.  Der  er  en  blanding 
af  tekst  og  grafik  i  spillet.  Jeg  sy¬ 
nes.  det  er  meget  svært  at  lave 
grafik,  så  derfor  laver  jeg  det  først 
på  papir  og  derefter  skriver  jeg 
grafikken  ind  på  Koala-painter. 


I  learned  it 
the  hard  way!" 


Hvis  jeg  får 
en  god  ide >  ska  i 
den  laves  så 
hurtigt  som 
muligt..." 

Navn:  Lars  Thorsen 
Alder:  13  år 
By:  Roskilde 

Program:  Malermesteren 
Til:  C-16 

Bragt:  COMputer  7/86 
Gevinst:  SOO.-  kr. 

Jeg  lavede  programmet,  fordi  jeg 
havde  brug  for  nogle  sprites  til  et 
af  mine  andre  programmer  (hvor 
du  skal  styre  en  mand  forbi  nogle 
kugler,  der  falder  ned).  Og  jeg  syn¬ 
tes.  det  var  for  besværligt  på  den 
normale  måde.  Så  dette  program 
blev  till 

Jeg  programmerer  kun  BASIC,  for 
maskinkode  er  for  besværligt.  Min 
far  har  hjulpet  mig  meget.  Også 
med  at  finde  ud  af  BASIC.  Flan 
hjalp  også  med  at  lave  program¬ 
met  malermesteren,  som  jeg  jo 
vandt  penge  på. 

Når  jeg  programmerer,  bruger  jeg 
kun  den  danske  manual,  for  den 
engelske  er  ikke  nær  så  god  (læs: 
tyk),  og  så  er  der  heller  ikke  index  i 
den. 

Jeg  går  kun  i  syvende  klasse,  men 
er  allerede  i  gang  med  et  tekstspil 
til  min  C-16.  det  bliver  meget 
spændende.  Indtil  videre  har  jeg 
fundet  nogle  snydenavne. 

Plottet  er.  at  man  skal  redde  en 
prinsesse  fra  en  drage  og  en  ond 
troldmand.  Det  foregår  i  Narnia. 
der  er  en  slags  eventyrland  -  lige¬ 
som  i  J.R.R  Tolkiens  bøger.  Du  kan 
også  møde  de  samme  personer  og 
væsener  som  hos  ham.  F.eks  Gan- 
dalf,  som  skaffer  flere  våben.  Der 
vil  blive  omkring  50  forskellige 
steder,  og  det  vil  være  færdigt  til 
efteråret. 

Jeg  vil  gerne  være  korrespondent 
og  jeg  vil  kun  have  computere  som 
hobby.  Jeg  gider  ikke  arbejde  med 
computere  hele  dageni 


lykkedes,  men  det  holdt  hårdt  (og 
det  blev  en  maskine  i  1 0.000  dol- 


Navn:  Claus  Andersen 
Alder:  19  år 
By:  Vedbæk 
Program:  Splitscreen 
Til:  C-64 

Bragt:  COMputer  5/87 
Gevinst:  500,-  kr. 


Jeg  lavede  egentlig  "Splitscreen" 
som  et  underprogram  i  et  spil  jeg 
lavede,  hvor  jeg  skulle  bruge  for¬ 
skellig  scroll-hastighed  og  højop¬ 
løselig  grafik  flere  steder  på  skær¬ 
men  samtidig.  Og  så  var  det  altså, 
at  jeg  lavede  dette  program.  Som 
jeg  senere  sendte  ind.  og  vandt  på. 
Det  er  lavet  i  maskinkode,  pga. 
hastigheden  og  fordi  jeg  roder 
med  rasteren.  Det  er  kun  muligt  i 
maskinkode. 

Jeg  har  ingen  assembler,  så  det  er 
ret  tidskrævende  at  programmere 
i  maskinkode.  Derfor  bruger  jeg 
også  BASIC,  nårjeg  skal  lave  man¬ 
ge  beregninger,  for  det  er  mange 
gange  lettere  end  at  rode  i  maskin¬ 
koden.  Jeg  lærte  maskinkode  for¬ 
di  en  af  mine  venner  kunne  trylle 
med  koden,  og  det  ku 'jeg  ikke  -og 
det  ville  jeg  ikke  acceptere  (han 
skulle  i  hvert  fald  ikke  være  bedre 
end  mig).  Så  jeg  fandt  nogle  bøger 
og  læste  og  efterhånden  fikjeg  og¬ 
så  fod  på  det. 

Jeg  programmerer  spontant  og 
lytter  til  musik,  jeg  er  helt  opslugt 
og  sommetider  har  jeg  siddet  fra 
kl.  otte  morgen  til  ni  aften.  Det  er 
simpelthen  sådan,  at  fårjeg  en  ide. 
så  skal  den  programmeres,  og  når 
den  ene  del  virker,  går  jeg  videre 
med  programmet  og  ideerne. 

Det  hele  startede  egentlig  med 
min  far,  for  han  er  vild  med  nye 
ting.  så  dengang  VIC-20  kom 
frem.  købte  vi  en.  (dengang  til 
4.500,-  kr.).  senere  fik  vi  den  stør¬ 
re  64'er.  og  nu  prøver  jeg  at  tjene 
penge  til  en  Amiga. 

Jeg  blev  student  sidste  år  og  har 
været  et  halvt  år  i  Guds  eget  land. 
USA.  Fler  lavede  jeg  bl.a  noget  re¬ 
search.  hvor  der  skulle  bruges  en 
grafikcomputer,  der  kunne  anime¬ 
re  35  genstande  i  realtime.  Det 


lårs  klassen). 

Til  august  skal  jeg  et  halvt  år  til 
Frankrig,  forjeg  vil  gerne  overtage 
min  fars  firma,  og  så  er  det  vigtigt, 
at  jeg  taler  flydende  engelsk  og 
fransk  (i  hvert  fald),  for  vores  for¬ 
retningsforbindelser  er  for  blot  at 
nævne  nogle:  Spanien.  Portugal, 
Frankrig,  Kina  og  Østtyskland.  Fir¬ 
maet  handler  med  artikler  for 
blomsterhandlere,  og  vi  fabrikerer 
bånd  med  tekst  (til  begravelser)  - 
så  jeg  overvejer  at  lave  en  bånd- 
tekstmaskine.  da  bogstaverne  er 
brandvarme,  når  båndene  trykkes, 
og  en  robotarm  nok  ikke  lider  så 
meget  som  et  menneske.  Bånd- 
tekstmaskinen  skal  styres  af  en 
computer.  Jeg  overvejer  hvordan 
jeg  skal  få  (lavet)  hardwaren.  Og 
jeg  har  aldrig  prøvet  at  lave  hard¬ 
ware  før,  så  det  er  en  stor  udfor¬ 
dring. 

Jeg  vil  gerne  kombinere  min  hob¬ 
by  (som  er  datamater)  med  mit  ar¬ 
bejde.  Jeg  håber  (og  tror),  at  det 
går  i  opfyldelse. 


Jeg 
at  danskerne 
elv  kan." 


k 


Navn:  Morten  Brodersen 
Alder:  18  år 
By:  Søborg 

Program:  Real-time  ur 
Til:  C-64 

Bragt:  SOFT  3/86 
Gevinst:  600.-  kr. 


Programmet  giver  et  ur  øverst  på 
skærmen,  og  det  mente  jeg.  man 


ofte  kunne  bruge,  da  man  jo  har 
det  med  at  glemme  tiden,  når  man 
programmerer.  Programmet  er  la¬ 
vet  i  maskinkode,  men  jeg  pro¬ 
grammerer  også  BASIC.  C,  COMAL 
og  PASCAL.  Jeg  er  med  i  et  pro¬ 
grammørteam,  der  kaldes  Scan- 
Team,  vi  skal  til  at  udvikle  spil  til 
Amiga'en.  Forresten  vandt  jeg  en 
Piccoline  i  jeres  søsterblad  "Alt  om 
Data"s  store  skolekonkurrence, 
den  solgte  jeg.  fordi  jeg  lige  havde 
købt  en  Amiga  -  og  helt  ærligt,  så 
var  Piccolinen  vand  mod  Amigaenl 
Jeg  har  lavet  en  del  programmer 
til  Amigaen,  de  fleste  er  med  tre- 
dimensionelle  tegninger,  der  dre¬ 
jes  og  lign. 

Jeg  er  midnatsprogrammør,  dvs. 
jeg  programmererom  natten.  Når 
jeg  programmerer  sidder  jeg  ofte 
til  kl.  04.00  ogjeg  har  altid  skrevet 
programmet  ned  (i  hvert  fald  i  ho¬ 
vedpunkter)  før  jeg  sætter  mig 
ved  computeren.  Det  gør  det  hele 
meget  lettere.  Jeg  har  endvidere 
lavet  en  bibel  over  mine  egne  pro¬ 
grammer,  hvor  alle  svarene  står. 
Jeg  programmerer  ALTID  struktu¬ 
reret,  det  er  simpelthen  blevet 
min  stil.  Den.  jeg  er  blevet  kendt 
for. 

Alt  jeg  kan.  harjeg  selv  lært.  forjeg 
har  læst  10  kilo  bøger.  Dengang, 
jeg  begyndte,  var  det  med  en 
ZX81  og  dennes  Z80  processor.  Vi 
var  en  gruppe,  som  alle  var  interes¬ 
serede  i  computere,  så  vi  støttede 
hinanden  og  gav  gode  råd.  Godt 
nok  harjeg  gået  på  aftenskole, 
men  jeg  lærte  intet  nyt.  så  det  gør 
jeg  nok  ikke  mere! 

Jeg  er  lige  blevet  student,  mate- 
matisk-fysisk  (sæ'fø'li)  og  jeg  vil 
gerne  læse  til  data-ingenør,  så 
DTH  på  Lundtoftesletten  bliver  et 
usikkert  sted  til  efteråret.  Jeg  sy¬ 
nes  endvidere  at  vi  haret  godt  ud¬ 
dannelsessystem.  men  der  er  for 
få,  der  tror  på.  at  danskerne  kan 
selv  -jeg  vil  vise  at  det  ka'  vi! 


Navn:  Søren  Frahm 
Alder:  16  år 
By:  Lystrup 

Program:  Ghostbusters 
Til:  Lambda 
Bragt:  TAST  1/87 
Gevinst:  450.-  kr. 

Jeg  var  engang  i  biffen  og  se 
'Ghostbusters'  og  straks  fik  jeg 
ideen  til  spillet.jeg  havde  tænkt  så 
længe  over.  NU  skulle  spillet  laves! 
Jeg  havde  fået  en  Lambda  ijulega- 
ve,  og  på  tastaturet  var  der  spø¬ 
gelser  og  andre  figurer,  så  grafik¬ 
ken  var  let  at  lave.  Spillet  gik  ud  på. 
at  du  skulle  skyde  spøgelserne 
med  din  laser,  ogjo  længere  tid,  du 
var  på  skærmen,  des  mindre  blev 
din  livslinie.  Når  den  forsvandt, 
døede  du.  Spillet  blev  lavet  i  BA¬ 
SIC.  for  jeg  kunne  ikke  maskinko¬ 
de.  Jeg  har  senere  læst  mange  bø¬ 
ger.  og  på  gymnasiet  fik  vi  et  40  ti¬ 
mers  kursus  i  COMAL.  Det  sprog  er 
simpelthen  for  let.  for  efter  ganske 
kort  tid  kan  du  lave  alt.  du  gerne 
vil,  og  så  er  det  kedeligt! 

Dengang  var  det  sådan,  atjeg  væl¬ 
tede  ned  foran  hjemmealteret  når 
jeg  kom  hjem  fra  skole  -  man  skulle 
vel  slappe  af.  ikk'7  Og  så  skete  det 
altså,  at  programmerne  væltede 
ud  af  ærmerne,  f.eks  harjeg  lavet 
et  par  økonomiprogrammer  og  et 
program,  der  bøjede  tyske  verber. 
Det  er  sjovere  end  at  lave  spil.  Jeg 
tænkte  lidt  over.  hvad  jeg  ville,  og 
så  satte  jeg  mig  ned  og  program¬ 
merede  og  efter  ca.  5  timer  havde 
jeg  bare  det  tykke  program,  der 
bare  ku'  det  der. 

Jeg  går  i  2.  g  nu.  jeg  fisker-  sild  og 
jager  krager  og  det  hænder  ( ret  of¬ 
te  faktisk)  atjeg  sejler  i  min  fars 
båd.  Jeg  gider  simpelthen  ikke  le¬ 
ge  med  computere  mere.  det  er 
jeg  vokset  fra  -  nu  opfinderjeg  iste- 
det.  Og  ved  den  seneste  opfinder¬ 
konkurrence  fikjeg  hele  1 000  kro¬ 
ner  for  en  af  mine  opfindelser.  (En 
limdunk.  der  ikke  kunne  størkne  i 
halsen). 

Jeg  vil  gerne  blive  konstruktør  el¬ 
ler  arkitekt,  men  jeg  vil  arbejde 
med  udvikling,  ikke  blot  være  ta¬ 
stemand  i  et  firma. 


SKOMAL 
(COMAL)?  -  Det 
er  for  let!" 


Jeg  solgte 
min  128'er  og 
kobte  en 
Amiga." 


Alder-,  15  år 
By:  Randers 
Program:  Skakmat 
Til:  C- 128 
Bragt:  SOFT  3/86 
Gevinst:  400.-  kr. 

Jeg  er  meget  interesseret  i  skak, 
og  derfor  lavede  jeg  dette  pro¬ 
gram.  der  kunne  simulere  en  slut¬ 
spilssituation,  hvor  man  spiller 
med  løber  og  springer  mod  enlig 
konge.  Ifølge  alle  teoribøgerne  er 
det  muligt  at  sætte  mat  -  men  det 
kræver  nogen  øvelse.  Denne  øvel¬ 
se  kan  du  få  med  programmet!  Jeg 
fik  ideen  til  at  sende  programmet 
ind.  da  jeg  havde  købt  'SOFT'  et 
par  gange  og  tænkte,  at  det  ville 
være  rart  med  flere  lommepenge. 
Grafikken  i  spillet  er  ikke  god.  da 
grafik  ikke  er  min  stærke  side. 
Nårjeg  programmerer,  er  det  i  BA¬ 
SIC,  selvom  det  er  langsommere 
end  maskinkode.  Men  maskinko¬ 
de  er  meget  mere  besværligt  at 
bruge. 

Jeg  har  overvejet  at  gå  på  aften¬ 
skole  i  maskinkode,  for  det  er  jo 
trods  alt  meget  hurtigere  end  BA¬ 
SIC  og  andre  højniveausprog. 

Jeg  er  ikke  begyndt  at  program¬ 
mere  på  Amiga'en.  forjeg  afprøver 
stadig  Workbench  og  færdige  pro¬ 
grammer  -  men  bare  rolig,  det 
kommer!  Det.  jeg  kan.  harjeg  selv 
lært  ved  at  låne  bøger  på  skolebi¬ 
blioteket.  Og  så  prøvede  jeg  mig 
også  frem. 

Nårjeg  (fordet  meste  om  aftenen) 
sætter  mig  foran  maskinen,  kom¬ 
mer  ideerne  langsomt,  og  så  pro¬ 
grammerer  jeg  dem.  Jeg  har  end¬ 
da  været  ude  for.  atjeg  fik  en  god 
ide  klokken  et  og  så  stod  jeg  na¬ 


turligvis  op  og  begyndte  at  taste, 
og  voila:  Et  program  blev  til. 

Jeg  har  prøvet  at  tage  mig  selv  i 
nakken  og  skrive  ned  FØR. jeg  sat¬ 
te  mig  ved  maskinen,  men  det  sy- 
nesjeg  ikke  var  sjovt,  så  det  gørjeg 
ikke  mere. 

Nu  er  der  godt  nok  længe  til.  atjeg 
skal  ud  af  skolen  og  endnu  vil  jeg 
gerne  være  noget  med  EDB,  men 
jeg  er  bange  for.  at  der  efterhån¬ 
den  bliver  arbejdsløshed  -  så  det 
kan  godt  være,  atjeg  hellere  vil 
være  ingenør,  når  den  tid  kom¬ 
mer. 


Jeg  pro¬ 
grammerer 
bedst  i  sengen , 
med  masser  af 
the ..." 


Navn:  John  Johansen 
Alder:  21  år 
By:  Roskilde 
Program:  Atmoswriter 
Til:  Oric  Atmos 
Bragt:  SOFT  3/86 
Gevinst:  800,-  kr. 

Jeg  lavede  Atmoswriter  af  nød.  for 
jeg  manglede  virkelig  et  tekstbe¬ 
handlings-anlæg.  Først  lavede  jeg 
programmet  i  BASIC,  men  det  var 
for  langsomt,  så  da  jeg  efterhån¬ 
den  lærte  assembler  lavedejeg  det 
i  maskinkode.  Det  er  i  øvrigt  me¬ 
get  hurtigere. 

Jeg  har  selv  lært  det.  jeg  kan.  og 
maskinkoden  lærte  jeg  ved  at  be¬ 
nytte  manualen  og  en  lille  liste 
over  maskinkodeinstruktioner. 
Jeg  prøvede  mig  simpelthen  frem. 
Og  jeg  havde  ingen  assembler  så 
det  foregik  ved.  at  jeg  i  hånden 
skrev  maskinkoden  og  derefter 
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slog  op  i  tabeller  for  at  se  hvad,  der 
skulle  ligge  hvori  Efterhånden  blev 
det  for  meget,  og  jeg  fremstillede 
en  assembler  i  BASIC,  senere  (da 
jeg  fik  ordentlig  check  på  kode) 
oversattejeg  det  til  den  noget  hur¬ 
tigere  maskinkode. 

Jeg  har  slet  ikke  læst  nogen  bøger, 
men  er  alligevel  rimeligt  inde  i  det 
hele  (efterhånden).  Jeg  program¬ 
merer  ikke  struktureret,  men  jeg 
laver  en  lille  rutine,  og  når  den  vir¬ 
ker,  fortsætter  jeg  med  næste  ru¬ 
tine.  Som  regel  får  jeg  nye  ideer 
undervejs  og  de  bliver  naturligvis 
også  kodede.  Da  jeg  havde  fuldt 
check  på  maskinkoden,  forbedre¬ 
de  jeg  mine  programmer  ved  at 
oversætte  dem  til  mc-kode. 

Når  jeg  ligger  i  min  varme  seng 
med  en  stor  kande  te.  ja  så  er  det. 
jeg  programmerer  bedst.  Og  det  er 
absolut  ingen  hindring,  at  der  er 
masser  af  papir  ved  hånden.  Jeg 
skeler  ikke  til  tidspunktet,  og  den¬ 
gang  blev  maskinen  tændt  lige  ef¬ 
ter  skole. 

Nu  hvorjeg  går  på  teknikum,  skal 
jeg  programmere  på  PC'ere  og  ly¬ 
sten  til  at  programmere  er  svun¬ 
det  en  hel  del,  så  det  er  nu  så  galt, 
at  jeg  kun  sætter  mig  ved  maski¬ 
nen.  når  jeg  er  tvunget  til  det. 


Jeg  lukker 
dørene  og  hå¬ 
ber,  Ingen  for¬ 
styrrer 

Navn-,  Laurs  Laursen 
Alder:  39  år 
By:  l^ystrup 
Program:  SuperBASIC 
Til:  Amstrad 

Bragt:  Alt  om  Data  4/86 
Gevinst:  700,-  kr. 

Jeg  programmerede  min  Amstrad 
og  fandt  visse  mangler,  og  tænk¬ 
te.  at  det  kunne  være  rart  at  have 
flere  kommandoer  til  rådighed. 
Bl.a  mangledejeg  en  hurtig  cirkel¬ 
kommando.  Jeg  købte  så  en  firm- 
ware-manual.  et  diskdrev  og  en  as- 
sembler-bog  og  så  gik  jeg  i  krig. 
Jeg  lavede  en  'diskoversigt  til 
printer"  rutine,  og  den  hurtigere 
cirkel-kommando,  samt  en  del  nye 
kommandoer,  der  alle  er  samlet  i 
SuperBASIC.  Det  var  meget  spæn¬ 
dende  at  lave.  da  jeg  normalt  er 
vant  til  at  arbejde  med  højniveau¬ 
sprog.  Min  Amstrad  kører  CP/M, 
og  på  min  arbejdsplads  har  vi  en 
CP/M  oversætter,  der  konverte¬ 
rer  CP/M  disks  til  MS-DOS  stan¬ 
darden  Det  giver  mig  mulighed  for 


at  lave  maskinkode  på  min  Am¬ 
strad  og  så  konvertere  filerne  til 
MS-DOS.  så  PC'en  på  arbejdet  kan 
bruge  Sourcekoden. 

Det  princip  benytter  jeg  bl.a  når 
jeg  laver  CAD/CAM  systemer 
hjemme  og  senere  overfører  det  til 
den  virksomhed,  hvorjeg  er  ansat 
(Jeg  er  maskiningenør  og  mit  ar¬ 
bejde  består  bl.a  i  at  designe  CAD/ 
CAM  systemer  til  brug  for  CNC- 
styrede  bearbejdings  maskiner 
(CNC:  Computerized  Notoric  Con¬ 
trol)). 

Jeg  har  i  min  tid  programmeret  alt 
lige  fra  BASIC  til  PASCAL,  FORT¬ 
RAN,  APL,  PL/I,  Z80  og  8080  ma¬ 
skinkode.  Jeg  skriver  også  en  del 
kommunikationsprogrammer  til 
RS-232C.  Alle  disse  rutiner  skal 
bruges  til  styring  af  maskinerne. 
Når  jeg  skal  lave  et  program,  går 
det  bedst  og  hurtigst  med  en  god 
opgave,  og  jeg  foretrækker  stilhed 
og  vil  ikke  forstyrres.  Efterjeg  har 
fået  ideen,  laver  jeg  et  blokdia¬ 
gram,  og  sætter  et  mål  for,  hvor¬ 
dan  dialogen  skal  være.  Alle  mine 
programmer  er  modulopbygget, 
det  gør  det  hele  lettere,  for  hvis 
man  skal  bruge  det  samme  modul 
i  flere  programmer,  bruger  man 
det  blot. 

Jeg  vil  ikke  skifte  arbejde,  for  jeg 
laver  det,  jeg  er  uddannet  til.  og 
det  er  det,  jeg  gerne  vil. 

Hvisjeg  skal  give  kommende  com¬ 
puterejere  et  råd,  så  skaf  en  maski¬ 
ne.  der  kan  køre  MS-DOS.  Ellers  vil 
maskinen  dø  meget  hurtigt! 


Min  timelon 
lå  på  500  kr  - 
skattefrit!" 


Navn:  Søren  Vejrum 
Alder:  19  år 
By:  Brønderslev 
Program:  62  K  RAM 
Til:  C-64 

Bragt:  Alt  om  Data  4/86 
Gevinst:  1 .000,-  kr. 


"-  Jeg  pro¬ 
grammerer  til 
musik  +  snasks 
og  drikke¬ 
varer 


Jeg  fik  ideen  til  programmet,  da 
jeg  ofte  var  ude  for.  at  jeg  skulle 
bruge  et  andet  program,  mens  jeg 
allerede  havde  et  i  lageret,  og  så 
syntes  jeg,  at  det  var  for  besvær¬ 
ligt,  at  man  skulle  gemme  pro¬ 
grammet  i  lageret,  før  man  kunne 
loade  og  bruge  det  andet.  Og  så 
var  den  sløve  1 54 1  jo  også  en  god 
grund,  ikke? 

Derfor  lavede  jeg  '62  K  Ram",  der 
gjorde,  at  man  -  når  man  havde 
indlæst  62  K  Ram  -  kunne  bruge 
de  24  ti  I  Ramdisk,  hvilketjo  gav  en 
500  gange  større  savehastighed 
end  1541'eren  havde.  Samtidig 
ville  folkjo  tro.  at  det  var  en  aprils¬ 
nar  (det  blev  bragt  i  april-numme¬ 
ret.  red.  )  og  det  gjorde  det  dob¬ 
belt  sjovt. 

Jeg  lavede  programmet  til  en 
64'er,  men  nu  harjeg  købten  Ami- 
ga.  så  64'eren  er  hensattil  den  fjer¬ 
nere  del  af  skrivebordet.  I  øjeblik¬ 
ket  roder  jeg  med  maskinkode  til 
Amigaen,  men  lidt  BASIC  tager 
man  vel  ikke  skade  af.  Jeg  har  pro¬ 
grammeret  PASCAL,  LOGO,  CO- 
MAL,  6510  maskinkode  og  nu 
68000  maskinkode,  og  selvom 
AmigaBASIC  er  temmelig  god,  så 
er  det  irriterende,  at  man  skal  bru¬ 
ge  musen  til  at  list'e  osv. 

Jeg  har  selv  lært  alt.  jeg  kan.  for 
jeg  bruger  ca.  200,-  kr  på  blade 
hver  måned.  Samtidig  harjeg  haft 
tid  til  at  prøve  mig  frem  og  læse 
nogle  bøger.  Jeg  var  længe  om  at 
lære  6510  maskinkode,  men 
68000  er  ikke  så  svært,  når  man 
først  har  fattet,  hvad  mc-kode  er. 
Da  jeg  lavede  programmet  62  K 
Ram.  brugtejeg  ca.  4  timer  på  pro¬ 
grammet  OG  den  loader  der  blev 
offentliggjort  kort  efter,  ialt  fikjeg 
2000  kr.  skattefrit,  så  det  er  jo  en 
ganske  god  timelønJeg  program¬ 
merer  bedst  om  natten,  da  jeg  går 
på  HH  (jeg  er  lige  blevet  færdig), 
helst  skal  der  ligge  noget'  Heavy 
Metal  på  pladetallerkenen  før  jeg 
føler  mig  i  mit  es.  Nårjeg  ikke  skri¬ 
ver  noget  ned.  tænker  jeg  længe 
og  meget  over  programmet,  for 
ellers  går  der  helt  kage  i  program¬ 
meringen. 

Jeg  synes  ikke  at  folk  skal  spille, 
men  i  stedet  begynde  at  program¬ 
mere.  Det  er  meget  sjovere  i  læng¬ 
den. 


Navn:  Michael  Brandt 
Alder:  14  år 
By:  Allerød 
Program:  Rentabelt 
Til:  C-64 
Bragt:  SOFT  3/86  Gevinst:  400,- 
kr. 


Jeg  har  selv  haft  problemer  med 
mine  joysticks,  og  derfor  tænkte 
jeg,  at  man  da  kunne  lave  et  pro¬ 
gram,  der  viste,  om  det  varjoystic- 
ket  der  var  noget  galt  med,  og  i  gi¬ 
vet  tilfælde,  hvad  det  var,  der  var 
galt! 

Det  er  lavet  på  en  64’er,  men  jeg 
har  senere  fået  en  PC-1 0,  så  nu  sid¬ 
der  jeg  og  leger  med  GW-BASIC 
hele  dagen  (altså  efter  skole).  Jeg 
har  lavet  en  database  et  par  gange 
og  hvergang  finder  jeg  på  noget 
nyt.  man  kunne  få  databasen  til  at 
gøre,  og  så  begynder  jeg  forfra. 
Jeg  har  også  lavet  et  primitivt  teg¬ 
neprogram  og  logoer  o.l.  Lige  i  øje¬ 
blikket  prøver  jeg  at  finde  nye  ting 
i  MS-DOS. 

Nårjeg  fåren  ide  til  et  program,  så 
hopperjeg  hjem  til  hjemmealteret 
og  voldta’r  knopdyret  og  sådan  la¬ 
verjeg  fede  programmer  (bl.a  min 
database  er  blevet  til  på  den  må¬ 
de).  Jeg  går  i  øjeblikket  med  en  ide 
om  at  lave  en  slags  GEM  system  til 
PC’eren  og  det  skal  ligne  Amiga’- 
ens  og  Macintosh’  styring. 

Jeg  kan  programmere  BASIC  (64’ 
BASIC  og  GW-BASIC)  og  på  ung¬ 
domsskolen  harjeg  haft  PASCAL, 
det  gik  meget  godt.  men  vores  un¬ 
dervisningsmateriale  skulle  retur¬ 
neres.  så  det  lærte  vi  ikke  meget 
af.  Endvidere  blev  der  leget  en  del 
med  LEGO’s  robotter,  og  det  gjor¬ 
de  ikke  just  undervisningen  mere 
PASCAL-minded. 

Jeg  er  i  gang  med  at  lære  8080 
maskinkode,  men  det  er  lidt  svært 
da  jeg  ALDRIG  har  lånt  bøger  eller 
læst  noget  som  helst.  Jeg  har  til 
gengæld  fået  meget  hjælp  af  min 
fætter,  der  også  er  computergal. 
Min  64’er  blev  mest  brugt  til  spil. 
da  den  var  meget  svær  at  pro¬ 
grammere. 


Jeg  går  stadig  i  skole,  men  jeg 
drømmer  om  at  blive  systempro¬ 
grammør,  så  jeg  skal  først  på  gym¬ 
nasiet  (mat-fys)  eller  også  vil  jeg 
på  EFG  og  HH.  Forresten  ville  jeg 
gerne  have  en  IBM  PS/2  men  jeg 
har  ikke  40.000,  såeh...  -det  bliver 
jo  nok  ikke  til  noget! 
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Jeg  arbejder  (på  1 1 .  år)  i  et  fritids¬ 
center  i  Hellerup,  og  programmet 
Paintbox  1 28  er  faktisk  lavet  i  fri¬ 
tidscenteret.  Jeg  sad  nemlig  og 
forklarede  nogle  medlemmer 
hvordan,  man  lavede  grafik  på 
1 28'eren.  Og  efterhånden  somjeg 
demonstrerede  de  forskellige  mu¬ 
ligheder.  lavede  jeg  programlinier 
og  det  blev  altså  til  sidst  til  pro¬ 
grammet.  Så  man  kan  ikke  sige.  at 
jeg  har  tænkt  meget  over  pro¬ 
grammet,  jeg  tastede  bare... 

Jeg  programmerer  i  BASIC.  CO- 
MAL80.  PASCAL  (standard)  og  as¬ 
sembler  (specielt  6510).  Jeg  har 
lært  PASCAL  på  EDB-skolen.  hvor 
jeg  læser  til  EDB-assistent.  jeg  er 
snart  færdig  og  så  vil  jeg  gerne  lave 
noget  andet,  for  jeg  vil  hellere  ar¬ 
bejde  med  EDB  end  i  et  fritidscen¬ 
ter  (hvor  vi  godt  nok  har  et  com¬ 
puterrum). 

Jeg  har  forresten  også  lavet  andre 
programmer  til  Commodore.  f  .eks 
har  jeg  lavet  et  adventure-pro- 
gram  som  Commodore  Danmark 


A/S  ville  købe  af  mig.  Jeg  tegnede 
en  kontrakt,  men  Commodore  var 
for  langsomme,  så  den  droppede 
jeg.  Jeg  har  senere  oversat  pro¬ 
grammet  fra  BASIC  til  maskinko¬ 
de.  og  det  var  sjovt,  men  ikke  vi¬ 
dere  indbringende.  Jeg  har  også  la¬ 
vet  et  regnskabsprogram,  der  er 
fuldt  konkurrencedygtigt  (det 
blev  jeg  budt  7.500.-  kr  for.  men 
jeg  ville  hellere  sælge  nogle  få  stk. 
til  en  rimelig  pris.  og  det  var  hel¬ 
digt.  for  det  har  solgt  145  stk.  og 
det  sælges  stadig  i  butikkerne). 
Når  jeg  skal  lave  et  program,  så 
tænker  jeg  over,  hvad  det  skal 
kunne,  og  laver  derefter  struktur- 
diagrammer  og  dokumentation, 
og  så  er  det  meget  lettere  at  taste 
programmet  ind.  Det  gør  jeg  iøv- 
rigt  bedst  om  natten  med  40  ciga¬ 
retter  og  masser  af  kaffe  (den  når 
som  regel  at  blive  kold).  Jeg  har 
også  lavet  flere  programmer,  og 
det  er  mit  program,  der  styrer  hvil¬ 
ke  sejlere,  som  kvalificerer  sig  til 
OL  i  Seoul  i  '88. 


Her  er  La  Petite  Pro¬ 
gram  me  eller  på  godt 
dansk:  Lxi.P.P.I 
Din  nye  sektion  med 
småprogrammer  og 
smarte  rutiner,  du  selv 
kan  lægge  ind  i  dine 


Lxi.P.P.  -  sektionen, 
der  får  din  computer 
til  det  umulige! 


^  Q  ^  ^  ^  ^ 

20  ’  **  INKEY  CODE  PROG.  tt 
30  '  tt  (C)  E.H.P.  SOFT  tt 
^  ^  ^  ^  ^ 

50  ’ 

60  ’ 

70  ON  BREAK  GOSUB  160 
80  MODE  1 

90  LOCATE  1,1: PR  I  NT  "Tryk  tasten  ned" 
100  WHILE  INKEY ( a ) =- 1 
110  LOCATE  1,3: PEN  2:PRINT  a 
120  a=a+  1 

130  IF  a=80  THEN  a=0 

140  WEND 

150  PEN  3 : PR I  NT 

160  PRINT  "Inkey  koden  er:  ";a 

170  PEN  1  : PR I  NT 

180  PRINT  "Tryk  <SPACE>" 

190  WHILE  INKEY(47)=-1 : WEND 
200  a=0 
210  GOTO  80 


10  '  tt  Feset  call  tt 
20  ’ 

30  CALL  O 


^  ti«- 


LaPPilZSø 


Program:  Scroll 
Maskine:  Amstrad 
Gevinst:  100  kr. 


z\  * 
,r\ cl 


e°*fs 


30  **  s*'  T  ,  \2 

-n  ~c-at£ 


Programmet  kan  scrolle  een  linie. 
Og  det  gårfaktisk  rimeligt  hurtigt, 
såe  det  er  helt  okl 
For  at  du  kan  ændre  teksten  i 
scrolllinien,  skal  du  blot  ændre  va¬ 
riablen  A$  i  linie  20  og  25.  Således 
at  A$  kommer  til  at  indeholde  din 
egen  tekst  til  scrolllinien. 
Indsendt  af: 

Jacob  Schultz 
Passagen  10 
2670  Greve  str. 


30  n‘ 
40  F 
50  1 
60 
70 
80 


°  £2* 


10  *o*r.££*t  “>7> 

•;  4£f  ■ ». 

O  nf»5°««Sl  ti,« 


5  n*7*  ^ 

o0:;;  2 

Syssel08 


les  8'1^:  II'808 

°0e 

fs^08,  38'  4.14, 


°*T* 


90  SCNCLR:  COLOR  0,1:  COLOR  4,1:  COLOR  5,2:C0L0R  1,2 

100  GRAPHIC  1  ,  1 

110  OPEN3 ,4 :  PRINT#3,CHR*< 8) 

120  FAST 
130  PC=1 
140  DIM  BD< 7,7) 

150  FOR  Y=0  TO  199  STEP 7 

ISO  :  FOR  X=0  TO  319  STEP7 

170  :  FOR  X2=0T06 

180  :  F0RY2=0T0S 

190  :  LOCATE  X+X2,Y+Y2 

200  :  IF  RDOTC  2 )  >0  THEN  BD<X2,Y2)  =  1 

210  :  NEXT  Y2 

220  :  NEXT  X2 

230  :  FOR  A=0  TO  6 

240  :  FOR  B  =0  TO  6 

250  :  IF  BD(A,B)  =  1  THEN  B0<A,B)=2tB 

260  :  NEXT  B 

270  :  NEXT  A 


Program:  Flimmer 
Maskine:  C64 


Her  har  I  et  program,  der  laver  et 
flot  flimmer-mønster  på  skær¬ 
men.  Det  er  smart  i  f.eks  loadere, 
så  man  kan  se  at  der  faktisk  fore¬ 
går  noget,  og  at  maskinen  ikke  er 
helt  død. 


280  :  FOR  1=0  TO  6 

290  :  FOR  IX=0  TO  S 

300  :  P=P+BD(  I  ,  IX) 

310  :  NEXT  IX 

320  1  P-P+128:  P*=P*+CHR*< 

330  1  NEXT  I 

340  «  PRINT*»3,P*?  :  PS=“" 

350  :  FOR  H=0  TO  8 

360  :  FOR  J=0  TO  6 

370  :  BD( H , J ) =0 

380  :  NEXT  J 

390  :  NEXT  H 

400  :  NEXT  X 

410  :  PRINT#3,CHR*<  13)) 

420  NEXT  Y 

430  PLAYnCDEFGAB " 

READY. 


TAST  -  9 
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Program:  Dobbelt  op 
Maskine:  Amstrad 
Gevinst:  100  Kr. 

Hvis  du  lige  står  og  mangler  det 
sidste  pift  til  programmet,  der  ba¬ 
re  ka'  det  der.  så  var  det  måske  en 
ide  med  dobbelte  bogstaver?? 
Hvis  du  synes,  at  det  lyder  umu¬ 
ligt.  så  tast  programmet  ind.  og 
se! 

Indsendt  af: 

Thomas  Pavstrup 
Østerbrogade  143 
2100  København  0 


1  ’  Dobbelt#  bogstaver  med  CALL  42055, 1  i nenr . 

10  FOR  £=42035  TO  42106:READ  C*:P0KE  E , VAL ( " k " +C* ) : NEXT 
20  DATA  DD,  6£, 00, DD, 23, DD, 23, 2D, 26, 00, 29, 29, 29, 29, E5, Dl , 29, 29, 19, C 9 
30  DATA  CD, 33, A4, 11,00, F8, 19, EB, 21 , 50, 00, 19, EB, OE, 02  E5  06  04  C5  OE 
40  DATA  02 , 06 , SO , E5 , D5 , 7E , 12,23,13, 10, FA, Dl , 7A, D6, 08, 57  El  OD  20  ED 
50  DATA  7C , D6 , 08, 67, Cl , 10, E3, Dl , OD , 20, DC , C9  ’  ’  ’  ’ 


10 -TAST 


1  PRINT  CHR$ ( 147) :  REM  * 

SCROLL 

2  TEXT$ (0) ="MADE  BY  GREEN  SOFT 

1987  IN  DENMARK  _ " 

3  TEXT$(1) -"COMPUTER  IS 

BEST . " 

50  FOR  I-  0  TO  1 

55  AT=LEN (TEXT$ ( I ) ) :  FORQ=l  TO 

AT 

65  XP=2 :  YP=1  :  GOSUBIOO: 

PRINT  MI D$ (TEXT$ ( I ) , AT-Q+l.Q) 
70  NEXT  Q 

75  FOR  Q=1  TO  AT/2-1 

80  XP=2 :  YP-1:  GOSUBIOO:  PRINT 

CHR$ ( 20) 

85  FOR  W=0  TO  2000:  NEXT  W 
90  XP=0 :  YP-1:  GOSUBIOO: 

PRINT" (40  SPACES)":  NEXT  I: 
END 

100  IF  YP<  >0  THEN  POKE  214. YP- 
1:  PRINT:  POKE  211, X:  RETURN 
190  REM  ****  VEJLEDNING  **** 
200  REM  *  NAR  DU  SKAL  LIGGE 
FLERE  LINIER  I  DIN  SCROLLTEKST 
SKAL  DU 

210  REM  *  HUSKE  AT  ÆNDRE  LINIE 
50,  SALEDES  AT  1  TALLET  RETTES 
TIL  DET 

220  REM  *  TAL  DU  ER  NÅET  TIL. 
OG  HUSK  OGSÅ  AT  AL  SCROLLTEKST 
SKAL  STA 

230  REM  *  SOM  : 

TEXT$ (NR) -"TEKST"  I 

BEGYNDELSEN  AF  PROGRAMMET 


Program:  Flere  serails 
Maskine:  C-64 
Gevinst:  100  Kr. 

Med  dette  smarte  program,  kan 
du  få  flere  scroll  linier  på  skær¬ 
men  ad  gangen.  Det  er  velegnet 
til  f.eks  Introduktioner  til  spil. 
Indsendt  af: 

Jesper  Andersen 
Louisegade  7 
9000  Alborg 


1  FOR  A=842  TO  851 

2  t  POKE  ft,  13 

3  NEXT  ft 

4  INPUT"<  CLR )  STARTLINIE  <  STORRE  END  25)  :  ",'LN:  IF  LN<  25  THEN  4 

5  INPUT"SPRING  MELLEM  LINIERNE  :  M;S:PRINT 

6  X=LEN<  STR*<  LN)  ) +8  :  Y=  1  :  P0KE2594,0 

7  C0L0R5 , 8  s  PR  I NT  LN;  "DATA  "ft  IF  A*<  >CHR*<  1 3  )  AND  A*<>B,M  THEN  PR INTA*,’ ! X=X  + 1 

8  GETKEY  A*:  IF  A*=CHR*<  17)  OR  A*=CHR*<  145)  OR  A*=CHR*<  147)  OR  A**CHR*  19)  THEN 
8 

9  X=X+1 

10  IF  A*<  >CHR*<  13)  AND  Y<  3  THEN  BEGIN 

11  s  IF  X=40  THEN  Y=Y+l:  X=1 

12  :  PRINTA*;:  G0T08 

13  BEND 

14  IF  A*=CHR*<  13)  OR  Y=3  THEN  BEGIN 

15  :  IF  Y= 1  THEN  A=2:  ELSE  A=3 

16  :  COLOR  5,12:  PRINT:  PR INT "P0KE208 ,0 : G0T07 " ; 

17  :  FOR  1  =  1  TO  A+l:  PRINT  CHR*<  1 45 ) ; .  :  NEXT  I 

18  :  POKE  208, A 

19  :  LN-LN+S:  X=LEN(  STR*<  LN)  ) +5  :  Y=  1 

20  :  END 

21  BEND 


Program:  Auto  data 
Maskine:  C1Z8 
Gevinst:  100  kr. 

Dette  korte  program  er  faktisk  en 
dataliniegenerator  (puha.  et  langt 
ord),  og  det  er  lavet  for  at  hjælpe 
dig  med  at  indtaste  lange  datalist¬ 
ninger  fra  TAST.  Programmet  sør¬ 
ger  for  alt  for  dig.  Du  skal  blot 
fæstne  øjnene  i  bladet  eller  listnin¬ 
gen,  så  skal  programmet  nok  sør¬ 
ge  for,  at  der  bliver  lavet  datalinier, 
i  det  rigtige  format! 


TAST  -  11 


10  pc=HIMEM-70: MEMORY  pc-1 

20  READ  a*:a*=UPPER*<a«) : IF  a*="END"  THEN  40 

30  FOR  a=l  TO  LEN(a*)  STEP  2:POKE  pc ,  VAL  <  "fe"  +MID*  ( a*,  a,  2)  )  :  pc=pc  +  l :  NEXT:  GOTO  20 
40  le-f  t=HIMEM+l :  right=le-f  t+35:  lb=lef t+1 : lh=lef t+10: rb=r ight+1 : rh=r ight+14 
50  DATA  2100001 10000CD1DBC06C8C5545DE523014FØØEDBØEB3600E1CD29BCC1 10ECC900000021 
00001100 

60  DATA  ØØCD 1 DBC 1 1 4FØØ 1 906C8C5545DE52BØ 1 4FØØEDB8EB3600E 1 CD29BCC 1 10ECC9 
70  DATA  end 
100  ’demo 

110  r*="dette  her  ruller  til  hej re-er jah  lit  rellur  reh  etted" 

120  l*="dette  her  ruller  til  venstre-ertsnev  lit  rellur  reh  etted" 

125  h=l : v=l 
130  MODE  1 

140  POKE  lb, 16: POKE  lh,8:P0KE  rb,24*.POKE  rh,8 

150  PRINT"  DETTE  ER  EN  DEMONSTRATION  AF  PROGRAMMETS  EVNER" 

160  LOCATE  40, 23: PRINT  MID*< 1*, v, 1 ) : v=v+l : IF  v>LEN(l*)  THEN  v=l 

170  LOCATE  1,22: PRINT  MID* <r*, h, 1 ) : h=h+l : IF  h>LEN<r*)  THEN  h=l 

180  FOR  a=l  TO  2:CALL  lett:CALL  r ight : NEXT: FOR  a=l  TO  25:NEXT:G0T0  160 


12  -  TAST 


det  nemme 

liv... 


Mongier  du  lommepenge?  Eller  hor  du  bore 
en  brændende  lyst  til  ot  få  lidt  cool  cosh? 
Anywoy,  whatever  the  reoson: 

Nu  har  DU  chancen  for  ot  få  skyllet  lidt  extro 
ind  på  den  slatne  bankbog!  DU  kon  tjene  kro¬ 
ner  med  dit  nye  nummer  af  TAST!! 


Healey 

'63.  Et  spil  polo.  Og  det  nye  SOFT. 


LaPP  er  stedet,  hvor  DU  kan  lade  dine  små  vidundere  se  dagens  lys! 
Send  os  dine  KORTE  programmer  (helst  under  40  linier),  så  kvitterer  vi 
med  en  kold  og  crispy  500-krone  seddel.  Men  dit  program  skal  være 
GODT!  Det  skal  være  så  godt,  at  andre  gider  taste  det  ind  og  lægge  det 
ind  som  en  rutine  i  f.eks.  større  programmer!! 

Er  dit  program  ikke  noget,  eksperterne  bliver  forbløffede  over,  nøjes  vi 
nemlig  med  at  forære  dig  en  1 00-krone  seddel.  Og  er  mini-programmet 
direkte  dårligt,  ryger  det  direkte  til  papirkurvenes  favorit-jagtmarker. 
Programmet,  du  sender  til  os,  må  som  sagt  være  på  højest  omkring  40 
linier.  Programtyper  er  underordnet,  så  det  kan  være  alt  lige  fra  et  kort 
spil,  noget  seriøst,  en  maskin-kode  rutine  eller  måske  en  smart  program¬ 
merings-ide.  Bare  send  ind,  vi  venter  i  spænding. 

Vi  vil  IKKE  have  hverken  bånd  eller  disk,  for  ingen  af  programmerne  bliver 
returnerede.  Vi  har  heller  ikke  mulighed  for  at  fortælle  dig,  om  dit  pro¬ 
gram  kommer  i  TAST  eller  ej.  Det  opdager  du  først,  når  du  ser  det  i  bladet 
og  står  med  din  500-LaPP. 

Ideen  har  vi  nappet  direkte  fra  vores  søsterblad  ’COMputer'  (dem  med 
Super  20  afdelingen  i  hvert  nummer).  Men  vi  er  ikke  så  strikse:  Vi  god¬ 
tager  nemlig  rutiner  og  short-cuts  til  ALLE  datamater,  lige  fra  Amstrad 
til  ZX  Spectrum. 

Ja.  uanset  hvilken  dataputter,  du  har  stående  i  skabet,  kan  vi  bruge  små 
korte  ting  til  den.  Altså:  Fat  printeren  eller  din  skrivemaskine  og  send  os 
din  korte  listning!  Samtlige  datamærker  godkendes. 

Og  pengene,  du  tjener,  er  skattefrie.  Du  skal  ikke  opgive  dem  til  det  kære 
væsen  -  det  har  vi  nemlig  allerede  ordnet  for  dig! 

Rasmus  Kirkegård  Kristiansen 

PS:  Det  er  naturligvis  unødvendigt  for  os  at  nævne,  at  du  selv  skal  være 
ophavsmand  til  mesterværket  -  ELLERS  FÅR  DU  NEMLIG  INGEN 
KRONERI  Og  derudover:  Hvis  du  fupper,  bliver  du  samtidig  totalt  van¬ 
æret  og  til  grin  og  vil  aldrig  kunne  leve  et  anstændigt  liv.  Endvidere  vil  du 
blive  sigtet  efter  straffelovens  ramme  under  paragraf  8,  der  kan  give 
fængsel  i  op  til  79  år  samt  den  elektriske  stol...  Så  husk  nu.  at  det  skal 
være  dit  eget  prog. 

Send  dit  lille  (mox.  40  liniers)  vidunder  til: 
TAST 

Att.:  Lo  Petite  Prog  ramme 
St.  Kongensgode  72 
1264  Kbh.  K 

Husk  at  vedlægge  dit  novn  og  adresse. 


SOFT  hører  med  til  en  vellykket 
weekend  -  hvis  du  vil  nyde  det 
nemme  liv  med  stil.  For  SOFT  er  i 
en  klasse  for  sig  selv,  præcis  ligesom 
du.  -  På  toppen. 

I  dag  er  det  blevet  endnu  nemmere 
at  nyde  det  nemme  liv.  Tegner  du 
abonnement,  får  du  nemlig  SOFT 
leveret  direkte  til  døren.  Portofrit. 
Nemt  og  2-3  dage  før,  de  andre 
kan  få  bladet  i  kiosken. 

Ikke  bare  sparer  du  penge  ved  at 
abonnere.  Du  får  også  bladet  før  det 
udkommer  og  slipper  for  besværet 
med  udsolgte  blade  i  kiosken. 

Nyd  livet  noget  mere.  Få  et  SOFT- 
abonnement  i  eget  navn. 

]a  tak,  send  mig  SOFT  i  et  helt  år  (bare  164  kr.). 

Abonnement  ønskes  startet  fra  og  med  nr - 

(kan  også  startes  med  tidligere  numre). 

_ 164  kr.  vedlagt  i  check 

_ eller  indbetalt  på  postgiro  9  40  60  77 


Navn  - 

Adresse  - 

Post-nr.  - By 


Send  til:  SOFT,  St.  Kongensgade  72,  1264  Kbh.  K. 

Enjoy  the  easy  way  of  living.  Subscribe. 


Program:  Tastaturbeep 
Maskine:  C64 
Gevinst:  100  Kr. 

Ja  vi  ved  det  godt.  det  er  set  før, 
men  alligevel  kunne  vi  ikke  stå  for 
programmet.  Det  er  nemlig  det 
sjoveste  beep,  vi  længe  har  hørt. 
For  nu  kort  at  fortælle  de.  der  ikke 
har  set  programmet  før,  kan  vi  si¬ 
ge.  at  det,  hver  gang  du  trykker  en 
tast.  giver  et  halvkvalt  beep  fra  sig. 
Det  sker  også.  når  du  indtaster  et 
andet  program  fra  La.P.P. 
Indsendt  af: 

Jesper  Lillesø 
Mølleparken  29 
7100  Vejle 
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RASTEPFARVER  C64 


10  FOR  T= 12545  TO  12672 
20  :  POKE  T , 255 -C :  C=C+2 
00  NEXT  T 

40  FOR  T= 12353  TO  12490 
50  s  POKE  T , B  :  B=B+1 
60  NEXT  T 

70  FOR  T= 1 2288  TO  12357 
80  :  READ  A  :  POKE  T , A 
90  NEXT  T 
100  POKE  12544,1 
1  10  SYS  12288 
120  : 

130  DATA  120,169,0,14  1, 14,220, 169,1,141  ,26,208 ,169,27,141 ,17,208 ,169,28,141 
140  DATA  20,3,169,43,141,21,3,83,96,173 ,25,208, 141,25 ,208 ,41,1 ,240,28, 198,255 
150  DATA  16,4,169,127, 133,255, 164,255,185,69,43, 141  ,32,208, 135,0,49,141, 18,208 
160  DATA  136,203,3,76,49,234,76,129,234,0 


14  -  TAST 


DIM  xX ( 250 ) . yX ( 250 ) 

mX=l : MODE  mX: iX=3: MOVE  320,200 

FOR  x=l  TO  66  STEP  0.1 

DRAW  320+3*x*C0S  <  x )  , 200+3*x*SIN <  x  >  ,  1 
NEXT  x 

DRAWR  20,-40 

PLOT  -10.-10,3:M0VE  315,200 
GOSUB  1010 
PRINT  <t2-tl)/300 
)  END 

)0  ’HUSK!  m=mode-vaerd i en. 

LO  zX=-4: sX=0: dX=2A (2-mX) : xX<0) =XPOS: yX<0) =YPOS 
>0  IF  sX<0  THEN  RETURN 

JO  X%=X%(5%) :yX=yX<sX> : sX=sX-l : HOVE  xX,yX 

»O  IF  TESTR <dX,0>  THEN  1060 

50  xX=xX+dX:GOTO  1040 

JO  IF  TEST ( x%, yX)  THEN  1180 

>0  PLOT  xX.yX 

>0  IF  TESTR (0,2)  THEN  1190 
)0  IF  tX  THEN  1140 

.  O  sX=sX+ 1 : xX ( sX ) =XPOS : yX ( sX ) = YPOS 
L5  tX=l 

K>  IF  TESTR (O, zX)  THEN  1200 
50  IF  eX  THEN  1170 

JO  sX=sX+ 1 : xX ( sX ) =XPOS : yX ( sX ) = YPOS 
J5  eX=l 

»O  xX=xX-dX: GOTO  1060 
JO  tX=0 : eX=0 : GOTO  1020 
>0  tX=0:G0T0  1140 
)0  eX=0 : GOTO  1170 


Program-.  W* 

Maskine-.  Amstrad 
Gevinst-.  300  Kr. 

Programmet  er  som 

ae) BB'fctOT- 

pen  nser. 

indsendt  af-. 

Carsten  Oisen 


m  ^NINOl 


Når  du 


ser 


(CL  R) 

(HOME) 

(CRSR  NED) 
(CRST  OP) 
(CRSR  HØJRE) 

venstre, 

(INST) 

(RETURN) 

(SPACE) 

(RCS  ON) 

(RVS  OFF) 

(SORT) 


Retyder  det 


Screen  clear 
H°me  cursor 
Cursor  ned 
Cursor  op 

Zrsor  højre 


jERNE 

0u  trykker 


Cursor 


venstre 


Program:  Rasterfarver 
Maskine:  C64 
Gevinst:  100  Kr. 

Nej.  det  er  ikke  set  før,  selvom  det 
lyder  sådan  I  Programmet  her  la¬ 
ver  en  meget  sjov  skærm,  hvor 
borderen  er  farvet  i  127  forskelli¬ 
ge  farver  og  det  nederste  af  skær¬ 
men  er  sort.  mens  det  normale 
skærmbillede  natruligvis  er  -  nor¬ 
malt! 

Hvis  du  vil  lave  noget  lidt  ander¬ 
ledes.  skal  du  blot  skrive: 

POKE  53265,11  efter  du  har 
RUN'et  programmet,  hvad  der 
sker,  tja... 

Indsendt  af: 

Jan  Fuglesang  Petersen 
Kastanievej  3 
6950  Ringkøbing 


(HVID) 
(RØD) 
(CYAN) 
(ULLA) 
(CRØN) 
(BLAA) 
(GUI) 
(ORANGE) 
(BRUN) 
(URØD) 
(GRAAl) 
(CRAA2) 
(L.GRøN) 
(L.BLAA) 
(0RAA3) 

(Ft) 

(F2) 

(F3) 

(F4) 

(FS) 

(F6) 

(F7) 

(F8) 


Deiete  tilbage 
Insert 
Return 
Space 
Reverse  on 
Reverse  o  ff 
Sort 


Hvid 

Rød 

Cyan 

Lilla 

Grøn 

Blå 

Gul 

Orange 

Brun 

Lyserød 

Grå  ) 

Grå  2 

Lysegrøn 

Lyseblå 

Grå  3 
Funkti, 


_  onstast  i 
Funktionstast  2 

Funktionstast  3 

Funktionstast  4 
Funktionstast  S 
Funktionstast  6 
Funktionstast  7  , 


sjsar**« 

CRSR  OP/ned 

S? EZSRSw« 

SHIFT  INST/DFi 

CTRL  g 
CTRL  o 
CTRL  I 
CTRL  2 
CTRL  3 
CTRL  4 
CTRL  S 
CTRL  6 
CTRL  7 
CTRL  8 

gommodore  ! 

GOMMODORE  2 
GOMMODORE  3 
GOMMODORE  4 
GOMMODORE  2 
GOMMODORE  6 
GOMMODORE  7 
GOMMODORE  8 


Funkti i 


onstast  8 


TAST  -  15 


GRMES 


Lambda 


Dick  Turpin 
tn  aetion 


Som  Dick  Turpin  skal  du  overfalde 
en  diligence.  Desværre  viser  ku¬ 
sken  sig  lidt  for  "besværlig",  og  du 
må  derfor  ty  til  at  skyde  ham.  Men 


1 00 

MUS  I C 

E4  " 

110 

MUS  I C 

"  C2  ’• 

120 

PAUSE 

«“i 

jL 

130 

MUS  I C 

”02" 

140 

MUS  I C 

"El  3 

1 50 

MUS  I C 

"  C2" 

1  60 

PAUSE 

2 

1  70 

MUS  I C 

"D2" 

ISO 

MiL'SIC 

"E4" 

1  90 

MUS  I  C 

"  A4  " 

200 

MUS  I C 

"34" 

210 

MUS  I C 

"O  2 

220 

PAUSE 

4 

X 

230 

MUS  I C 

11 B2" 

240 

MUS  I C 

"A4" 

250 

MUS  I  C 

"E4" 

260 

MUS  I C 

"  D4  " 

270 

MUS  I C 

"  C4" 

230 

MUS  I  C 

"D4" 

290 

MUS  I  C 

"  E4" 

300 

ML’SIC 

"  F4" 

310 

MUS  I C 

"GI  3 

320 

MUS  I C 

"  G4  " 

330 

M(JS  I  C 

"  F4  ” 

340 

MUS  1 C 

"  E4  " 

350 

MUS  I  C 

"  D4  " 

360 

370 

400 

410 


du  skal  være  hurtig,  for  han  har  til¬ 
kaldt  hjælp,  og  den  er  på  vej.  Pro¬ 
grammet  er  skrevet  til  Lambda, 
Marathon  eller  Power  3000,  men 
kan  bruges  til  ZX-81 .  hvis  du  und¬ 
lader  musiksætningeme  og  tilpas¬ 
ser  grafikken. 

Jakob  Pedersen 


IF  0=2  THEM 
GOTO  90 
MUS  I C  "F4" 


MUS  I C  " F i 


420 

PAUSE 

4 

540 

MUS  I  C 

"  f  4" 

660 

MUS  I  C 

"  A4" 

430 

MUS  I C 

"  E2  " 

550 

MUS  I  C 

"  G4" 

670 

MUS  I  C 

"  G4  " 

440 

MUS  I  C 

"  F 1 3  " 

560 

MUS  I C 

MG4" 

680 

MUS  I  C 

“  f  3 

450 

MUS  I  C 

”A4" 

570 

MUS  I  C 

■'  32" 

690 

MUS  I C 

ii  ii 

460 

MUS  I  C 

"  G4  " 

530 

PAUSE 

2 

700 

MUS  I C 

"DS" 

470 

MUS  I C 

”  F4  " 

590 

MUS  I  C 

"  f  2" 

710 

MUS  I C 

Il  QØ  II 

430 

MUS  I C 

II  II 

600 

MUS  1  C 

"  G4  " 

720 

MUS  I  C 

"  G4  " 

490 

MUS  I C 

1.  Q2  »• 

610 

MUS  I C 

"G2" 

730 

MUS  I C 

"G2" 

500 

PAUSE 

1 

620 

PAUSE 

2 

740 

PAUSE 

2 

510 

MUS  I  C 

"D2" 

630 

MUS  I  C 

n  ^  n 

750 

M  US  I  C 

11  f  2" 

520 

ML’SIC 

il  C  *■  T  il 
u.  x 

640 

MUS  IC 

"  G4  " 

7  60 

m;us  i  c 

"GI  3" 

530 

MUS  I C 

"  F  4  " 

650 

MUS  I  C 

"  B4  " 

770 

MUS  I  C 

"  B4  " 

MUS  I  C 
MUS  I C 
MUS  I  C 
MUS  I  C 
PAUSE 
VUSIC 
MUS  I  C 


"  fi4 
"  G4 

"  f  4 

"  D2 


MUS  I  C 


MUS  1  C 


MUS  I  C 


PAUSE 
MUS  I  C 


"  E2 
"fl 
"E4 
”  f  4 
"  G2 
i  G 
"  G4 


GAMES 


S  90 

MUS  I C 

"  G2" 

900 

PftUSE 

2 

310 

MUS  I C 

ii  f  2" 

920 

MUS  I  C 

"G4" 

930 

MUS  I C 

"  G2" 

940 

Pfl’JSE 

,■•* 

35G 

MUS  I  C 

"  f 2" 

360 

MUS  I  C 

"  G4  " 

970 

MUS  I  C 

"  B4" 

380 

MUS  I C 

"  ft4" 

990 

MUS  I  C 

"G4" 

1  OøO 

MUS  I C 

"  f8" 

lOlø 

MUS  I  C 

"ES" 

1  020 

MUS  I C 

"DS" 

1  030 

MUS  I  C 

"CS" 

20øø 

POKE  . 

16418, 0 

2001 

PRINT 

RT  21,ø; 

T"i  V/  TA 

BY  JR 

KOB  PEDERSEN-SOFT 

M 

2002 

PGKE 

16418,  2 

2003X 

:=io 

2004 T 

=0 

2009 

PRINT 

ftT  17,22;" 

2010 

PRINT 

ftT  IS,  22; "øla 

2O20 

PRINT 

ftT  13,22;"  A/m-m  1" 

2O30 

PRINT 

ftT  20,22!"  ø 

Å  ÅØAØ" 

2035 

PRINT 

ftT  M,  2 1 !  "  " 

204øl* 

1  NT 

(RND*20) 

3000 

PRIMT 

ftT  M,  21 ;  "ni" 

3010 

IF  V*= 

="J"  THEN  GOTO 

4000 

302©  IF  inkey$="l"  THENX  =  X-1 

303ø  IF  INKEY$=" . "  THENX=X+1 

3040  IF  INKEY*="ft"  THEN  GOTO  5G00 

3041  J.F  X=0  THENX  =  1 

3042  IF  X=2G  THEMX=13 

305©  PRINT  ftT  X,0;  "d" 

3051  PRINT  ftT  X-1.0  5"  " 

3052  PRINT  ftT  X+l.OS"  " 

3060T=T+1 

3070  PRIMT  ftT  O,  15 5  T 

30 SO  IF  T=1G0  THEN  GOTO  60GG 

3090  GOTO  2G35 

40©©  IF  I NKEY$= "4"  THENX=X-1 

4010  IF  INKEY$=" R"  THENX=X+1 

4020  IF  INKEY$=" U"  THEN  GOTO  50 G G 

4021  IF  X=G  THENX=1 

4022  IF  X=2G  THEMX=19 

4030  PRINT  ftT  X»øS"d" 

4031  PR  I  NT  ftT  X  + 1 »  O  5  "  11 

4032  PRINT  ftT  X-1,0;"  " 

4O40T =T  + i 

4050  PRINT  ftT  O,  15*  T 

4O60  IF  T=1G0  THEN  GOTO  60GG 

4O70  GOTO  2G35 

5005  SOUND  5, 5GGG 

5008  FOR  S=1  T020 

5O10  PRINT  ftT  X,S;"  .  " 


5O20  NEXT  S 

5025  PRINT  ftT  X,215"  " 

503©  IF  X=M  THEN  GOTO  5500 
5040  GOTO  2035 
5500  CLS 

5505  PRINT  "bravo  DU  FIK  SKUDT  MO 
DSTfiNDEREN  ,  OG  KftN  NU  FLYGTE  NED 
11  ;  I  NT  <  RND*  1 OOOOO )  ;  "  DOL-Lft  RS  ..  V 
IL  DU  PRØVE  IGEN  ..." 

5510  PRINT  "MED  JOYSTICK  (J/N)" 
5520  INPUT  V$ 

5525  IF  V*="J"  THEN  CLS 

5530  IF  THEN  GOT G  2000 

5535  IF  V$=" N"  THEN  CLS 

5540  IF  V$="N"  THEN  GOTO  2000 

5550  GOTO  5520 
6000  CLS 

6005  PRINT  "sor ry  HJftELPEN  KOM  OG 
DU  BLEV  HftENGT  Pftft  STEDET  .  .  . 

MED  JOYSTICK  ( J/N) " 

6010  INPUT  V$ 

6015  IF  I NKEY$=" J"  THEN  ClS 
6O20  IF  V*="J"  THEN  GOTO  2000 
6025  IF  INKEY$="N"  THEN  CLS 
6030  IF  V$="N"  THEN  GOTO  2000 
6040  GOTO  6010 

7000  PRINT  ">>>>>>>> >fc i CK-turPin 

El  <<<<<<<<<< " 

701ø  PRINT  ftT  3,0; "DETTE  SPIL  GftflR 
UD  Pftft  ftT  DU  ER  DICK  TURPIN  >d< 

.  DIN  OPGftVE  ER  ftT  SKYDE  DEi_IGE 
NCEFOREREN  , INDENHJftELPEN  KCMMER 
, Sftft  DU  KftN  FLYGTE  MED  ftLLE 

PENGENE  .  VIL  DU  HOVE  JOY 

STICK  (J/N) 

7015  PRINT  ftT  9, Oi "ELLERS  STYRER  D 
LJ  MED  ft=SKYD  ,  .  =NED  ,L=OP.  " 

7020  INPUT  V$ 

7030  IF  V$="J"  THEN  GOTO  7100 
7040  IF  V*="N"  THEN  GOTO  7100 
7050  GOTO  7020 

7100  PRINT  ftT  12,  O;  "VIL  DU  HORE  ME 
LOD I EN  FORST  (J/N)" 

7105  IF  INKEY*="J"  THEN  CLS 

7110  IF  INKEY$=" J"  THEN  GOTO  5 

7115  IF  INKEY*="N"  THEN  CLS 

7120  IF  INKEY$="N"  THEN  GOTO  2000 

713ø  GOTO  7105 

3000  CLS 

3010  SOVE  "DICk" 

3015  SOUND  13,  1500 
3020  PRINT  ftT  10,5; "DICK  TURPIN  ER 
LOfiDET" 

3030  PRINT  ftT  21,  10;  "trykienltast " 
3040  IF  INKEY$=" "  THEN  GOTO  3040 
3045  CLS 
305ø  GOTO  7000 


TAST  -  17 


GAMES 


1  U=53248: 5=54272: POKE  5+24,15 

: PDKE  S+4 , 32 : PDKE  5+5,0 
: POKE  S+E. 250: PDKE  5,10 

2  PDKE  5+1,10:  IF  PEEK *! 704 1  =  1  THEN  15 

10  FDR  1=42152  TO  43355: READ  A 

: PQKE  T, A: NEXT : FDR  T=03E  TO  258 
: READ  A : PDKE  T , A : NEXT 

11  PDKE  704,1 

15  51=0 : 52=0 : GOSUB  2000 
20  PDKE  U+41 , 1 : PDKE  U+4,127 

: PDKE  U+5. 127: PR 1  NT ” C  HU I D , CLR ) ” 

: PDKE  2040, 13: PDKE  2041,13 


30  PDKE  2042,14 

31  PRINT” C HUID) 


: FDR  Y-l  TD  22 

32  IF  Y  =  ll  THEN  PR  I  NT  "'I  RUS  ON  )  I  C  RUS 

□ff:1 11 _  * _ 

_ I  " :  : NEXT  Y 

33  IF  Y  =  12  THEN  PRINT”  C  RUS  DM)  I1’.  RUS 

gff) - $ - 

- 1  " ;  : NEXT  Y 

34  PRINT” C  RUS  ON)| CCRSR  HØJREIS, 

RUS  DFF, SPACE) I  C  RUS  ON, 


18  -  TAST 


GAMES 


CRSR  HØ JRE1B , RUS  0FF5|";:NEXT  Y 
35  PRINT”  "C RUS  CZN I> 

HOME  )  ” 

: POKE  2023, 1BB: PDKE  55319,1 
40  SYS  49152 : POKE  U+32,0:P0KE  U+16,1 
: PDKE  U,63:T2 — 7 

50  PR  I  NT” C  HOME, RUS  ON, SORT, 

SPACE3 i SPILLER  ET  SPILLE 

R  TO  ” : POKE  0+21,7:01=127 

51  E=1 : T1=T2:D2=D1 

70  POKE  U+41 , 5 : POKE  U+4,01 

: POKE  U+5 , 02 : POKE  U+41 , 1 : D1-D1+T1 
: A-A-l 

101  D2=D2+T2 : I F  D1<0  OR  Dl>255  THEN 
D1  =  AESCD1-C24B:'  j  :  E-AES^E-B) 

: POKE  U+ 1 5 , E 

110  IF  PEEK C U+30 11  > 0  AND  A<  1  THEN  Tl  = 
-TI : A” 10 : GOSUE  4000 
120  IF  D2> 22S  OR  D2<EØ  THEN  T2--T2 
130  I F  C  Dl >  80  AND  E=S ) OR C  Dl < 10  AND  B= 

1 ) THEN  1000 
500  GOTO  70 
1000  IF  B=5  THEN  1020 
1010  S2-S2+1 :T1— 7: GOTO  1040 
1020  Sl-Sl+1 : TI =7: PRINT” C HOME, 

CRSR  HØJRE14  ,  RUS  ONr’Sl 
1040  PRINT  "  C  H0I1E  ,  CRSR  HØJRE34  , 

RUS  0N:i”S2:IF  E=5  THEN  POKE  U  +  15,1 
:  E-l 

1060  D1=1SØ : POKE  U+4,D1:P0KE  U+5, Dl 
1055  IF  S2-HI  OR  SI-HI  THEN  PRINT"CH 
ONE, CRSR  NED13  ,  CRSR  HØJRE15  >GAME 
OUER ” ; : GOTO  15 
1090  POKE  199.0 

1095  GET  AS : I F  A$<>”  ”THEN  1095 
1100  GOTO  70 

2000  FOR  X- 1  TO  3000 : NEXT  X 

2500  PRINT” CL . ELAA , CLR , RUS  ON, 

SPACE  15.' PING  PONG 

:POKE  U+21,0 

2501  PRINT”  LAUET  AF  JOHN  MIKKELSEN 
8,  PETER  MARINO  ” :  POKE  199,0 

2510  PR  I  NT” C CRSR  NED3 , 

CRSR  HØJRE2} SPILLER  1  ERUGER  JOYS 
TICK  PORT  I”: POKE  U+32,0 
: POKE  U+33,0 

2520  PR I  NT” C CRSR  HØJRESISPILLER  2  ER 
UGER  JDYSTICK  PORT  II” 

2530  PR  I NT ” C  CRSR  HØJRE2 , 

CRSR  NED 5 EFTER  ENDT  SERUE  FORTSAE 
TTES  SPILLET" 

2540  PRINT” CCRSR  HØJRE21UED  TRYK  PAA 
C  RUS  ON, GUL  C  SPACE CL. BLAA, 

RUS  OFF  5 ” 

2550  PR  I NT "CCRSR  NED2 , 

CRSR  HØ JRE2  j  HU  I LKEN  BEGRAENSN I NG 
SKAL  DER  UAERE” 

2550  PR  I  NT ” C  CRSR  HØJRE25PAA  POINT  C 


1-DER  UD  A ’ 1 

2570  INPUT”CHOME, CRSR  NED14 , 

CRSR  HØ JRE2B )  ”  ;  H I 

2580  IF  H I < 1  THEN  2570 

2590  PRINT  "CCRSR  NED2 , 

CRSR  HØJRE2DTRYK  CGUL, 

RUS  ON  }  SPACE  C  RUS  OFF, L. BLAA, 
SPACE ? FOR  AT  STARTE” 

2595  GET  A$:IF  A$<>”  "THEN  2595 

2595  RETURN 

4000  POKE  5+4, 33: POKE  S+4 , 32 : RETURN 

49152  DATA  075,056,192,000,060,000, 
000 , 060 , 000 , 000 , 060 , 000 , 000 , 060 , 
000,000,060 

49169  DATA  000,000,060,000,000,060,- 
000 , 000 , 060 , 000 , 000 , 060 , 000 , 000 , 
060 , 000 , 000 

49186  DATA  060,000,000,060,000,000, 
060 , 000 , 000 , 060 , 000 , 000 , 060 , 000 , 
000 , 060 , 000 

49203  DATA  000,050,000,000,060,000, 
000 , 060 , 000 , 000 , 060 , 000 , 000 , 060 , 
000, 162,000 

49220  DATA  199,003,192,157,064,003, 
232 , 224 , 063 , 20B , 245 ,169,001,141, 
040,208,169 

49237  DATA  255,141,021,208,141,000, 
20B, 169,026, 141,002,208, 169,100, 
141,001,208 

49254  DATA  141,003,208,169,005,141, 
032,208,141,033,208,120, 169, 126, 
141 , 020,003 

49271  DATA  169,192,141,021,003,088, 
096, 174,000,220,224, 126,208,013, 
172,001,208 

49288  DATA  192,050,208,003,076,146, 
192, 206, 001, 20B, 224, 125, 20B, 013, 
172,001 , 208 

49305  DATA  192,229,208,003,076,163, 
192 , 23B , 001 , 208 , 174 , 001 , 220 , 224 , 
254,208,013 

49322  DATA  172,003,208,192,050,208, 
003,076, 183, 192, 20E, 003, 208, 224, 
253,208,013 

49339  DATA  172,003,208,192,229,208, 
003 , 076 , 200 ,192, 238 , 003 , 20B , 076 , 
049,234,096 

49400  DATA  000,000,000,000,000,000, 
000 , 000 , 000 , 000 , 000 , 000 , 000 , 000 , 
000 , 000 , 000 

49410  DATA  000,000,000,000,000,000, 
000 , 000 , 000 , 000 , 060 , 000 , 000 , 126 , 
000,000, 126 

49420  DATA  000,000,125,000,000,060. 
000 , 000 , 000 , 000 , 000 , 000 , 000 , 000 , 
000, 000, 000 

49430  DATA  000,000,000,000,000,000, 
000 , 000 , 000 , 000 , 000 , 000 


TAST  -  19 


GflMGS 


Commodore 


_3 


Road  Puzzle  er  et  noget  atypisk 
racerspil  til  en  C64.  hvor  farten  er 
gledet  i  baggrunden  til  fordel  for 
hurtigt  logisk  ræsonnement.  Spil¬ 
let  er  opbygget  ligesom  "15  spil¬ 
let',  hvor  det  gælder  om  at  sætte 
1 5  talbrikker  i  rigtig  rækkefølge.  I 
Road  Puzzle  ertalbrikkeme  blevet 
erstattet  af  små  vejbaner,  som  din 
lille  prik  af  et  køretøj  skal  køre  på. 
Hver  gang  din  bil  forlader  en  brik, 
skal  du  sørge  for.  at  der  er  mulig¬ 
hed  for  at  køre  videre  på  næste 
brik.  Da  alle  overkørte  brikker  bli¬ 
ver  blanke,  er  det  til  sidst  noget  af 
et  kunststykke  at  fremskaffe  vej¬ 
bane  til  din  asfaltsluger.  Hvis  det 
på  noget  tidspunkt  går  en  kende 
for  langsomt  i  spillet,  slutter  du  af- 
terbumeren  til  ved  at  holde  fire- 
tasten.  Hvis  du  kører  ud  i  en  af 
skærmsiderne,  er  der  mulighed  for 
at  fortsætte,  hvis  vejen  fortsætter 
på  den  modsatte  side.  På  redak¬ 
tionens  vegne  lover  vi.  at  Road- 
Puzzle  ikke  vil  skuffe  selv  rutinere¬ 
de  TAST'ere. 

Jesper  Høy 


min 


/ 


10  UU-53249  :  PØKE  UU-^SS . 0  :  PØKE  UU-21,0 
30  PCKE  53290. 15: PøKE  53331,15 
:  PR  I  NT  "  f.  CLP  ,  BLA3  ?  ØJEEL  I K  !  ” 

30  FØR  3=0  TØ  S3  :  PQKE  51969+3 ,  0 :  NEXT 
40  FOR  3=0  TO  IS  STEP  3 : RE3D  B 

: PCKE  51959+3 , E : NEXT : P3KE  53340. '44 
50  Din  BRSC10?  ,  FE'!7, 123 
60  FØR  3=1  TØ  10 : RE3D  X1S.X2S.X3S 

:  BRffi  C  3 11  —  ”  RUS  ØN ”+XlS+ ”  'I  ERSR  NED, 
CRSR  UENSTRE3) ”+X2$+”CCRSR  NED, 
CRSR  UENSTRE3  )  ”+X3$+”CCRSR  ØP3, 

RUS  ØFF  ? ” : NEXT  3 

7ø  ERfB C  0  !>  -  ”  i  ER332  .  RUS  ØN /CNN C CRSR  NE 
D  ,  CRSR  UENSTRE3  ?I100  C  CRSR  NED, 

ØRSR  UENSTRE35MS2CCRSR  ØP2, 

RUS  ØFF . GR331 ? ” 


90  3D=491S2 : FØR  3=0  TØ  21:CS=0 

: FØR  B=0  TO  7 : RE3D  C:PØKE  3D+E.C 
:CS=CS+C:NEXT  E : RE3D  D 
90  IF  0=CS  THEN  3D-3D+9 : NEXT  3 
: SYS  49290 : GØTØ  110 
100  PRINT”';  CRSR  NED  j  FEJL  I  D3T3-LINI 
E  "PEEK  C  63  J  +  PEEK  C  54 1'  *255  :  END 
110  PØKE  53272,52: PØKE  55575, ISE 
: PøKE  549, 204: PR  I  NT” 1 CLR, 

GR331  :■  "CHRS ^ 8 ?  ;  :  HI  =100 
120  PRINT” '! CLP  ,  EL33  .  EP3CE? ROAD  LEFT 
:  0  V.  ’lØØ  '  HI 

:  100  V;ER33i;>” 

130  PR  I NT ” C HØNE , CRSR  NED.SP3CE 

RUS  0  N  I*  L  N  N  N  N  N  N  N  N  N  N  N  N  N  N  N  N  N  N  N  N  N  N  N  N  N 
NNNNNMNNNNNN ” 


20  -  TAST 


140  FOR  A=1  TO  21  i  PRINT "  '.RUS  ON-TKR 
US  OFF, SPACE36, RUS  G  Ni!"!” : NEXT 
150  PRINT”  '".RUS  GNDMNNNNNNNNNNNNNNNN 
N  N N N N N N N N N NNNN N N N N N N □ ” 

1BØ  X-l : Y-l : GGSUB  1930: PRINT  BRSC75; 

: FOR  Y  =  E  TG  li: PRINT  BRSC33; 

: NEXT  Y 

170  Y-12: PRINT  BRSCB1 : FOR  X-S  TG  6 
: GOSUB  1990: PRINT  BRSCSi : NEXT  X 
: GOSUB  1990: PRINT  BR$C6) 

180  X=7:F0R  Y-ll  TG  8  STEP-1 

: GGSUB  1990: PRINT  BRSC3D : NEXT  Y 
: GOSUE  1990: PRINT  BRSC51 
190  Y-l: FOR  X-B  TG  E  STEP-1 

: GGSUB  1990: PRINT  BRSCE5 : NEXT  X 
EØØ  PRINT ” C HOME , CRSR  NEDB, 

CRSR  HØJRE9:iR  GAD  PU22L 
E  ” 

E10  PRINT”': CRSR  NEDE,  CRSR  HØJREIØKC 
I  1907  JESPER  HØY" 

220  PR  I  NT”':  CRSR  NEDE,  CRSR  HØJRE  10  ')  EN 
TER  SPEED  C  1  - 3 :>  CRUS  ONiØCRUS  GF 
F , CRSR  UENSTRE5”; 

E30  GET  X$:IF  X$< ”1 "OR  X$>”3”THEN  E30 
E40  PRINT  X$:  SP-7-UAL  C  X$  XS 
E50  PR I  NT ” C CRSR  NEDE, CRSR  HØJRElØiSE 
TTING  UP  HIGHWAY  — ” 

EBØ  PR I NT ” C  HDNE , BLAA , SPACE i RQAD  LEFT 
:  0  ‘i:  100CGRAA1? ” 

E^Ø  RG-E : FOR  X-l  TO  7 : FOR  Y-l  TG  IS 
:  FE  C  X  ,  Y  :•  -EØ :  NEXT  Y.X 
EBØ  EX- I  NT  C  RNDC  0 1*7 1  +  1 

: BY-INTCRNDCØXlEXl : FECBX, BY? -4 
E90  HX-INTCRNDCØX7X1 
: H Y - 1 NT  C  RND  C  0  X 1 E  X 1 
: I F  HX-BX  AND  HY-BY  THEN  E90 
300  FECHX,  HY:i-0 

310  FOR  G-l  TG  IB: FOR  H-5  TG  B 
3EØ  X-INTCRNDCØX7X1 :  Y-INTC  RNDC  0X1 
S)  +  l : U-FECX , Y) : 1-0 
330  IF  U-SØ  THEN  I-H 
340  IF  H-5  AND  U-B  THEN  1-9 
350  IF  H-6  AND  U-7  THEN  1-10 
360  IF  H-7  AND  U-B  THEN  1-10 
370  IF  H-8  AND  U-5  THEN  1=9 
3BØ  IF  1-0  THEN  3EØ 
390  FECX,YXI : RG-RG+1 
400  PRINT ” C HOME , BLAA , SPACE) ROAD  LEFT 
: ”RO” CGRAA1 ) ” 

410  NEXT  H , G 

4EØ  FOR  X=1  TG  7: FOR  Y-l  TG  1E 
:  I F  FECX.YXEØ  THEN  470 
430  U=  I  NT  •!  RNDC  0  )  *3  )  *2  :  FE  C  X  ,  Y  )  -U 
44ø  IF  U— 4  THEN  RO-RG+1 
450  RG-RG+ 1 

4EØ  PR  I  NT  ”  r.  HOnE  ,  BLAA  ,  SPACE  )  RGAD  LEFT 
: ”RQ ” CGRAA1 ? ” 

470  NEXT  Y,X:ftS*RQ 


4BØ  FGR  X-l  TG  7: Y-l: GGSUB  1990 

:  FQR  Y=1  TG  1E:  PRINT  ER$CFECX,Y'.0 
: NEXT  Y , X 

490  R=  I  NT  C  RNDC  0X4 1  +  1  :  FX-1E:  FY-1E 
: GGSUB  EØEØ : POKE  UU+E1 , 1 
500  GOSUB  510: GOSUB  EØEØ 

: FQR  S-l  TG  SP : GOSUB  13SØ:NEXT  S 
: GGTG  500 
510  G-FECEX , BY1 
5EØ  ON  R  GOTO  530 , B40 , 750 , BBØ 
530  ON  G  GOTO  0,540,0,540,0,0,560, 
600,600,560 

540  FX-FX-1 : I F  FX>0  THEN  RETURN 
550  GOTO  970 

5EØ  IF  FX< EØ  THEN  FY-FY+1 
570  IF  FX> 1E  THEN  FX-FX-1 
580  IF  FY< S5  THEN  RETURN 
590  GOTO  970 

600  IF  FX< EØ  THEN  FY-FY-1 
610  IF  FX> 1E  THEN  FX-FX-1 
6EØ  IF  FY>  0  THEN  RETURN 
630  GOTO  970 

640  ON  G  GOTO  0,650,0,650,670,710,0, 
0,670,710 

650  FX-FX  +  1:IF  FX< E5  THEN  RETURN 

660  GOTO  970 

670  IF  FX> 4  THEN  FY-FY  +  1 

590  IF  FX<1S  THEN  FX-FX+1 

690  IF  FY<E5  THEN  RETURN 

700  GOTO  970 

710  IF  FX> 4  THEN  FY-FY-1 
7EØ  IF  FX< 1E  THEN  FX-FX+1 
730  IF  FY> 0  THEN  RETURN 
■’HØ  GOTO  970 

750  GN  G  GOTO  0 , 0 , 760 , 760 , 7BØ , 0 , BEØ , 
0 , 7BØ , 8EØ 

760  FY-FY-1: IF  FY>0  THEN  RETURN 
770  GOTO  970 

780  IF  FY< EØ  THEN  FX-FX-1 
790  IF  FY> 1E  THEN  FY-FY-1 
BØØ  IF  FX> 0  THEN  RETURN 
910  GGTG  970 

BEØ  IF  FY< EØ  THEN  FX-FX  +  1 
B30  IF  FY> 1E  THEN  FY-FY-1 
840  IF  FX< E5  THEN  RETURN 
850  GGTG  970 

B60  GN  G  GOTO  0,0,970,870,0,890,0, 
930,930,890 

870  FY-FY+1: IF  FY < E5  THEN  RETURN 
980  GGTG  970 

890  IF  FY> 4  THEM  FX-FX-1 
900  IF  FY< IS  THEN  FY-FY+1 
910  IF  FX> 0  THEN  RETURN 
980  GGTG  370 

930  IF  FY> 4  THEN  FX-FX+1 
940  IF  FY<1E  THEN  FY-FY+1 
950  IF  FX< 85  THEN  RETURN 
960  GOTO  970 


TAST  -  21 


GAMES 


97ø  X=EX : Y=EY : RR-R 

990  IF  FX-0  THEN  FX-24 : R=1 : BX-BX-1 
: I F  BX-0  THEN  EX-7 
990  IF  FX-25  THEN  FX=1 : R-2 : EX-EX+1 
: IF  BX-B  THEN  SX-i 
1000  IF  FY-0  THEN  FY-24: R-3: EY-BY-1 
: IF  BY-0  THEN  BY-12 
1010  IF  FY-25  THEN  FY-1 : R-4 : BY-BY+1 
: IF  EY-13  THEN  BY-1 
1090  BR-FE'iBX.BY) 

1030  IF  BR< 9  THEN  1130 
1040  ON  R  GOTO  1050,1070,1090,1110 
1050  IF  ER-3  OR  ER=5  OR  BR=E  THEN  11 
30 

1060  GOTO  1170 

1070  IF  BR-3  OR  BR-7  OR  ER-9  THEN  11 
30 

1080  GOTO  1170 

1090  IF  BR=2  OR  BR-G  OR  ER-B  THEN  11 
30 

1100  GOTO  1170 

1110  IF  ER-2  OR  ER=5  OR  BR-7  THEN  11 
30 

1190  GOTO  1170 
1130  IF  RO- 1  THEN  1170 
1140  PR - 1 NT  C  RO / RS* 1 00 1 
:  IF  PR<  H I  THEN  HI -PR 
1150  PRINT” C HOME . CRSR  HØJRE33 , 

BLAA ”H I ” C  CRSR  UENSTRE, 

SPACE  !*i  CGRAA11"; 

1150  FOR  A-l  TO  1 0 : FOP  F-0  TO  15 
:PCKE  UU  +  3S , F : NEXT  F , A 
: POKE  UU  +  21 , 0 : POKE  UU+39 , 0 
: GOTO  1990 
1170  BR-FECX, Y) 

1180  IF  BR<  >4  AND  ER<9  THEN  ER-1 

1190  IF  BR<  >  9  THEN  1290 

1200  IF  RR-2  OR  PR-3  THEN  ER-0 

1210  IF  RE-1  OP  RR-4  THEN  BR-5 

1220  IF  ER<> 10  THEN  1250 

1230  IF  RR-2  OR  RR-4  THEN  ER=7 

1240  IF  RR-i  OR  RR-3  THEN  BR-S 

1250  IF  ER<> 4  THEN  1290 

1250  IF  RR-1  OR  RR-2  THEN  BR=3 

1270  IF  RR— 3  OP  PP—4  THEN  EP— 2 

12BØ  GOSUE  1990:  PRINT  BRSCER1  ; 

:  RO-RO-1  :  FE IX,  Yl-BR 
1290  PRINT ” C HOME , CRSR  HØJREli, 

BLAA  1 ”RO ” (  CRSR  UENSTRE, SPACE, 
GRAA11  ” 

1300  PR I NT” C  HOME . CRSR  HØJPE21 , 

BLAA 1  ”INT(RO/RS*100  j  ”  C  CRSR  UENSTR 
E,  SPACE,  GRAA1  V’ :  IF  RO>0  THEN  RETU 
RN 

1310  GOTO  1730 
1320  CO-0 

1330  JO-PEEK C  55320 1 

1340  IF  JO- 111  THEN  S-SP: RETURN 


1350  IF  JO-126  AND  HX<7  THEN"1410 
1350  IF  JO-125  AND  HX>1  THEN  1490 
1370  IF  JO- 123  AND  HY< i 2  THEN  1570 
1390  IF  JO- 119  AND  HY> 1  THEN  1650 
1390  CO-CO+l:IF  CO< 5  THEN  1330 
1400  RETURN 

1410  X-HX+1 : Y-HY: FOR  A-i  TO  3 

: GOSUE  1990: PRINT  LEFTS (  ”  ( CRSR  OP 
31”, A)  ; 

1420  IF  A<  3  THEN  XlS=”ri@0” 

1430  IF  A-3  THEN  X1S-”LNN” 

1440  IF  X=BX  AND  Y-BY  THEN  SX-SX-9 
: POKE  UU+l.SX 

1450  PRINT  BR$  C  FE  f.X.Yl. •>;”<:  CRSR  NED  3  , 
CRSR  UENSTRE3 , GRAA2 , 

RUS  ON  j ”X1$ " C  RUS  OFF , GRAA1 1  ” 

1450  NEXT  A 

1470  IF  X-BX  AND  Y-BY  THEN  BX-BX-1 
1490  FE'IHX,  HY1-FECX,  Y1  :  FE(X  .  Yl-0  :  HX-X 
: RETURN 

1490  X-HX-1: Y-HY: FOR  A-0  TO  2 

: GOSUE  1990: PRINT  LEFTS C” (CRSR  NE 
D31”. Al ; 

1500  IF  A-0  THEN  X1S-"LNN” 

1510  IF  A> 0  THEN  X1S=”HØ@” 

1520  IF  X-BX  AND  Y-EY  THEN  SX-SX+B 
: POKE  UU+l.SX 

1530  PR I NT " C  GRAA2 , RUS  ON  1 "X 1 S " C  RUS  O 
FF, CRSR  NED. CRSR  UENSTRE3 , 

GRAA11 "EPS  r  FE ( X , Y 1  1 
1540  NEXT  A 

1550  IF  X-BX  AND  Y-BY  THEN  BX-SX+1 
1550  FE (HX,HY!-FECX,Y! : FE ( X , Y 1 -0 : HX-X 
: RETURN 

1570  X-HX: Y-HY+1 : FOR  A-l  TO  3 

: GOSUE  1990: PR  I  NT  LEFTS (" C CRSR  UE 
NSTRE31 ”,  Al ; 

1590  IF  A<3  THEN  X 1  S- ”N ” : X2S- ”0 ” 

1590  IF  A-3  THEN  X1S- "L " : X2S- ”N” 

1500  IF  X-BX  AND  Y-EY  THEN  SY-SY-9 
:POKE  UU.SY  AND  255 
:  I F  SY< 0  THEN  POKE  UU+16,0 
1510  PRINT  BRS ( FE ( X , Y 1 1 ” ( GRAA2 , 

RUS  ON  1 ”X1$ ” ( CRSR  NED, 

CRSR  UENSTRE 1 ”X2S ” C  CRSR  NED, 

CRSR  UENSTRE 1”X2$”( RUS  OFF , GRAA1 1 ” 
1620  NEXT  A 

1530  IF  X-BX  AND  Y-BY  THEN  BY-EY-1 
1540  FECHX  HY1 -FEC X . Y 1 : FE C X  Y1-0:HY-Y 
: RETURN 

1550  X-HX: Y-HY-1 : FOR  A-0  TO  2 

: GOSUE  1990: PRINT  LEFTS (”( CRSR  HØ 
JRE31 ” , Al ; 

1650  IF  A-0  THEN  X1S  -  ”L  ”  :  X2S- ”11” 

1570  IF  A>0  THEN  X1S- ”N ” : X2S- ”0 ” 

1690  IF  X-BX  AND  Y-BY  THEN  SY-SY+8 
:POKE  UU.SY  AND  255 
:  I F  SY> 255  THEN  POKE  UU+15,1 


22  -  TAST 


GAMES 


1890  PR I NT ” C GRAA2 , RUS  0N)”X1$” CCRSR 
NED , CRSR  UENSTRE) ”X2$” CCRSR  NED, 
8RSR  UENSTRE) ”X2$” CCRSR  0P2, 

GR AA i)  "ERSCFECX,  Y)  ) 

1700  NEXT  A 

1710  IF  X=EX  AMD  Y-BY  THEN  BY-BY+1 
1720  FECHX ,  HY)=FECX  ,  Y)  :  FE  C  X  ,  Y  .1  “0  :  HY'Y 
: RETURN 

1730  POKE  UU+21 , 0 : X=4 : Y=6 

: X $  = ”  ( CRSR  NED, CRSR  UENSTRE3, 

SPACE3 , CRSR  NED, CRSR  UENSTRE3, 
SPACE3 , CRSR  CP2  ) ” : GDSUE  19SØ 
: PR  I NT  XS;  : GGSUB  1910 
1740  PRINT  XS ; : GDSUE  1910 
1750  X-3:F0R  Y-5  TO  B:GOSUB  1990 
: PR I  NT  XS;:GOSUE  1910:NEXT  Y 
1780  X-4: Y-B:GOSUB  1990: PRINT  XS 
: GDSUE  1910 

1770  X-5 : FOR  Y-B  TO  5  STEP-1 

: GDSUE  1990 : PR I NT  XS GDSUE  1910 
: NEXT  Y 

17BØ  X=4:Y=5:G0SUE  1990:PRINT  XS 
: GDSUE  1910 

1790  X-2:F0R  Y-4  TD  9  .-GDSUE  1990 
: PRINT  XS: GDSUE  1910: NEXT  Y 
1BØØ  Y=9 : FDR  X-3  TD  5: GDSUE  1990 
: PRINT  XS: GDSUE  1910: NEXT  X 
1810  X=G : FOR  Y=9  TD  4  STEP-1 

: GDSUE  1990: PRINT  XS : GDSUE  1910 
: NEXT  Y 

1 BEØ  Y“4 : FDR  X-5  TD  3  STEP-1 

: GDSUE  19SØ: PRINT  XS : GDSUE  1910 
: NEXT  X 

1B30  PR  I  NT "C  HOME, CRSR  HØJRE13 , 

CRSR  NEDE  i YDU  HAUE  DONE” 

1B40  PRINT ” C  CRSR  HØJRE13 , 

CRSR  NED!' THE  I!1PDSSIELE” 

1B50  PR  I NT ” C CRSR  HØJRE1E,CRSR  NEDE, 
SPACE4 ) YDU  ARE” 

1880  PR  I NT” C CRSR  HØJRE11, 

CRSR  NED) THE  MASTER  PUZZLER ” 

1870  PRINT” CCRSR  HØJRE11.CRSR  NEDE, 
SPACE3:.'KICK  BUTTDN” 

1BBØ  PR  I NT ” C  CRSR  HØJREll.CRSR  NED, 
SPACEE  !•  TD  PLAY  AGA  IN” 

1890  JD-PEEKC56320)  :  IF  JOOlll  THEN 
1890 

1900  GOTO  130 

1910  FDR  P-l  TD  10: NEXT: RETURN 
19EØ  PR I NT” C HOME, CRSR  NEDE)”; 

1930  FDR  A=1  TD  El : PR I  NT ” C CRSR  HØJRE 
E , SPACE36 ) ” : NEXT  A 
1940  PRINT” C BLAA , HOME , CRSR  NED7 ) ” 

1950  PRINT  ”  C  RUS  DN ,  CRSR  HØJREB  )M@@MØ 
ØM I  HØMØØAAHØ  I  MAØMØØMØ  I  ” 

1960  PRINT” C  RUS  DN.CRSR  HØJREB ) MLNMN 
ØMFGØMNAAAØ AØM AØMN AMNS  ” 

1970  PR  I  NT  ”  C  RUS  DN.CRSR  HØJRES  )riN@MA 


ØMAÅØMNNAAFØGFØGMNNMF  I 
1980  PR I NT "CCRSR  NED3 , 

CRSR  HØJREB) PRESS  BUTTON  TD  PLAY 
AGAIN! CGRAA1 ) ” : GOTO  1890 
1990  PR I NT” C HOME) ” ; 

EØØØ  PRINT  LEFTSC "CCRSR  NED37) ” , 

X*3-l ) • 

E010  PRINT  LEFTSC "CCRSR  HØJRE37) ” , 
Y*3-l) ; : RETURN 

EØEØ  SX^EX*24+FX+39: SY=BY*24+FY+ 1 3 
E030  IF  SY<  E55  THEN  PDKE  UU^IB.Ø 
E040  IF  SY>255  THEN  PDKE  UU+16,1 
: SY-SY-S56 

E050  PDKE  UU+ 1*.  SX  :  PDKE  UU,  SY:  RETURN 
EØBØ  DATA  48, 1EØ.E5E.E5E, 1E0.48 
E070  DATA  LNN.riee,  riød,  LAN,  MA@,MA@ 
EØBØ  DATA  LNN , AAA , MØØ , LAN , AAA , MAØ 
E090  DATA  LAB, MIA, n@@, CAN, AHØ.nØØ 
E100  DATA  LNN, MGA , MAD, LNN. AFØ, EAØ 
El  10  DATA  LAE, AJA, EAØ, CAN, AKA, MAD 
E1SØ  DATA  E55 , E55 , E55 , E55 , E55 , E55 , 
255,855,2040 

2130  DATA  0,0, 0,0, 0,0, 0,0,0 
2140  DATA  0,255,255,255,127,63,31,15, 
1001 

2150  DATA  0,127,127,127,126,124,120, 
112, 8E3 

2160  DATA  15,31,63,127,255,255,255, 
255,1256 

2170  DATA  112,120.124,126,127,127, 
127, 127,990 

2180  DATA  255, 127,63, 31 , 15, 7, 3, 1-J502 
2190  DATA  255,254,252,248,240,224, 
192,128,1793 

2200  DATA  1,3,7,15,31,63,127,255,502 
2210  DATA  120,192,224,240,248,255, 
254.255, 1^93 

2220  DATA  128,64.32,15,8,4,2,1,255 
2230  DATA  1,2,4,8,15,32,54,128,255 
2240  DATA  0,127  127,127,127,127,127, 
12"7 . 899 

2250  DATA  127,127,127,127,127,127, 
127, 127, 1016 

2250  DATA  0,255,255,255.255,255,255, 
255, 1785 

2270  DATA  127,255,255,255,255,255, 

255  255  1912 

2290  DATA  120,168,51,133.1,162,0.189, 
925 

2290  DATA  0,208,157,0,208,189,0,209, 
971 

2300  DATA  157,0,209,189,0,210:157,0. 
922 

2310  DATA  210,189,0,211,157,0,211, 
189, 1157 

2320  DATA  0,192,157,0,212.232,208, 
223, 1224 

2330  DATA  169.55,133,1,88,96,0,0,542 


TAST -23 


GAMES 


Spectrum 


Racerkøreren 


Din  Spectrum  er  blevet  forvandlet 
til  en  fjemsty  ringsenhed  af  en  fuld¬ 
størrelse  racerbil,  der  drøner  rundt 
ude  på  banen.  Selv  sidder  du  oppe  i 
en  helikopter  og  ser  derfor  hele  ba¬ 
nen  fra  fugleperspektiv. 

Hold  din  racerbil  kørende  så  langt 
som  muligt.  Jo  længere,  desto  fle¬ 
re  points.  Bilen  styres  med  følgen¬ 
de  taster: 

1  -venstre, 2-højre,0-op,0-ned. 
God  fornøjelse.  Og  prøv  nu  at  lade 
være  med  at  smadre  alt  for  mange 
biler,  det  giver  sådan  et  frygteligt 
rod. 

Mikkel  Paulsen 


i§  kis  ooéooooooooooooo 
20  REM  O  RACERKØRER  O 
30  REM  o  Copy  rig t  ©  o 
40  REM  OMikkel  Pau iseno 
50  REM  OOOOOOOOOOOOOOOO 
60  GO  SUB  9000 
70  GO  SUB  8000 
80  LET  tid  =0 :  LET  or»9=0 
90  PRINT  AT  0,0; 
"000000000000000000000000000000 
0000  00000  « 
000  000 

000  o 

00 
oo 
00 
00 
000 
00000 
00" 

100  PRINT 
"0000  0000000 


000 

0000  0000000000 
00000  0000000000000 
0000000000 


0000000 

000000 

000000 


00000000000000 


0000000 
eoooooooo 
00000000000 
0000000000000 
0000000000000 
000000000000 


00000 

»goo 

o 


00 

000 

0000 

0000 


0000 
000 
00 
00 
00 
000 

oooo  oooooooeoooooooooo  o 

ooooo  an 

oooooo  aoo 

0000000  0000 

00000000000000000000000000000000 
O" 

110  LET  p  i'  h  *  19  :  LET  pr  1=7 
laø  PRINT  INUERSE  1;  INK  1 ;  AT  cl 
0,29; "HI" ; AT  21,31-LEN  STR$  hi; 
INUERSE  1,  INK  1; h i 
130  PRINT  AT  prh.prl;  INK  2; "fc" 
135  BEEP  1,12:  BEEP  .15,7:  BEEP 
.15,12:  BEEP  .15,16:  BEEP  .15,1 
2:  BEEP  .15,16:  BEEP  1.5,19 
140  PAUSE  0 
150  LET  9  O  t  O  = 160 
160  LET  a*=INKEY* 

170  PRINT  AT  20,0;  INUERSE  1;  - 
NK  1, "SCORE"; AT  21,5-LEN  STR*  ti 
d;  INK  1;  INUBRSE  l;tid 
180  LET  tid=tid+l 
190  IF  a*="l"  TMEN  GO  TO  29ø 
200  IF  a*="2"  TMEN  GO  TO  340 
210  IF  a*="0”  THEN  GO  TO  240 
220  IF  a*="0"  TMEN  GO  TO  390 
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£3ø  GO  TO  goto 

24-0  LET  pfhspfh-1:  LET  goto  =24-0 
:  IF  SCREEN*  (prh,prl)  =  "tt"  THEN 
GO  TO  løøø 


£50  PRINT  AT  pfh,prl;  INK  2; "I” 
;  AT  prh+l,pri;"  " 

£60  PhUSE  pause 
£70  BEEP  .03,-20 
£80  GO  TO  160 

290  LET  pr  l=pr  l-l:  LET  goto =290 
:  IF  SCREEN*  (prh,prU="#"  THEN 
GO  TO  løøø 

300  PRINT  AT  prh,prl;  INK  2; "H" 
; AT  p rh  ,pr  i  +  l; "  " 

310  PAUSE  pause 
320  BEEP  .03,-20 
33ø  GO  TO  160 

34-0  LET  p  f  L  =p  f  t  + 1 :  LET  goto  =34-0 
:  IF  SCREEN*  (p r h , p r l ) ="»"  THEN 
GO  TO  løøø 

350  PRINT  AT  prh,prlj  INK  2;  "fc" 
; AT  prh  ,pr L-l; "  " 

360  PAUSE  pause 
370  BEEP  .03,-20 
330  GO  TO  160 

39ø  LET  prh=prh+l:  LET  goto =390 
:  IF  SCREEN*  (prh ,Pf  l) ="#"  THEN 
GO  TO  løøø 

4-00  PRINT  AT  prh, pr  l;  INK  2;  "X" 
;  AT  p  r  h  - 1 ,  p  r  l ;  "  " 

410  PAUSE  pause 
420  BEEP  .03,-20 
430  GO  TO  160 

1000  PRINT  AT  prh.prl;  FLASH  1; 
INK  6,  PAPER  2;  "1" 
lølø  FOR  a  =20  TO  -20  STEP  -1:  BE 
EP  . 03 , a .  NEXT  a 

1015  PRINT  AT  21,9,  INVERSE  1; "N 
YT  SPIL -TAST" 

lø2ø  PRINT  AT  3,8;  PAPER  4, "DU  K 
øRTE  GALT!!"; AT  10,11;  PAPER  6; 
FLASH  1; "GAME  OVER" 

1030  IF  tid  >h  i  THEN  LET  hi=tid-l 
:  PRINT  AT  15,9;  INK  1;  INVERSE 
1; "NY  HIGH  SCORE":  PRINT  AT  20,2 
9;  INVERSE  1;  INK  1;"HI";AT  21,3 
1 -LEN  STR*  hi;  INK  1,  INVERSE  1; 
h  i 

1035  PAUSE  200 

lø4ø  PAUSE  ø:  GO  TO  7ø 

Søøø  BORDER  7:  PAPER  7  INK  ø:  C 

LS 

SølØ  PRINT  PAPER  5;"  R 

CirFDKClDFD  " 

3015  BEEP  .1,7:  PAUSE  5;  BEEP  .1 
,7:  BEEP  1,12 

3øl6  PAUSE  lø:  BEEP  .1,7:  BEEP  . 
1,12:  BEEP  .1,7:  BEEP  .1,12:  BEE 
P  1,16 

3020  PRINT  ''"I  dette  Spectrum  s 
Pil  skal  du  prøve  at  køre  bane 
n  rundt  i  din  Super -Racer  saa  hu 
rtigt  som  mu -  ligt.  Du  kan  køre 
hurtigt  eller  langsomt,  men  pas 
paa!  Kører  du  hurtigt,  er  bilen 
ikke  let  at  styre." 

3ø3ø  PRINT  ''"Hvilken  hastighed 
(l-lø)?  lø  er  langsomst,  1 

er  hurtigst." 

3ø4ø  input  pause:  IF  pause <1  OR 
pause >lø  THEN  GO  TO  804© 

3050  RETURN 

9000  FOR  a  =USR  "a"  TO  USR  "d"+7 
9010  READ  user:  POKE  a,user 
9ø2ø  NEXT  a 

9030  DATA  BIN  øølølølø,BIN  00111 
110, BIN  øølølølø , BIN  øøøøløøø, BI 
N  øøøllløø, BIN  øløllløl, BIN  ølll 
1111, BIN  øløllløl 

9040  DATA  BIN  øøøøølll,BIN  llløø 
010, BIN  øløøllll, £55, BIN  0100111 
1 , BIN  llløøølø, BIN  øØøøølll,ø 
9050  DATA  0 , B IN  11100000.BIN  ølø 
00111, BIN  lllløølø, 255, BIN  llllø 
010, BIN  øløøølll, BIN  11100000 
9060  DATA  BIN  10111010,BIN  11111 
llø, BIN  10111010, BIN  ØØlllØOØ, BI 
N  øøø løøøø, BIN  ølø 10 100, BIN  ølll 
1100, BIN  øløløløø 
9ø7ø  RETURN 
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Commodore  64 

Bask  på  dansk 


For  mange  af  de  lidt  yngre  dataen¬ 
tusiaster  kan  sproget  i  starten 
godt  være  en  alvorlig  forståelses¬ 
mæssig  barriere.  Derfor  kommer 
programmet  "Dan  Basic"  som  en 
åbenbaring,  for  med  dette  pro¬ 
gram  kan  du  snakke  rigtig  dansk 
med  din  C64.  "Dan  Basic"  oversæt¬ 
ter  ved  hjælp  af  en  MC  rutine  alle 
dine  engelske  kommandoer  og 
fejlmeldinger  om  til  let  forståelige 
danske.  Fra  start  ligger  MC'en  i  da¬ 
ta-linier.  men  når  programmet  kø¬ 
res.  laver  det  et  nyt.  der  kan  saves 
og  runnes.  Det  nye  program  er  af 
typen  1987  sys  2061.  Der  er  en 
ting.  der  ikke  er  fordansket,  nem¬ 
lig  load/save  proceduren.  Forkor¬ 
telser  af  kommandonavne  følger 
samme  mønster  som  hidtil  set. 


verify 

wait 

Alle  funktioner 

tagen: 

peek 

fre 


—  luk 

—  nul 

—  text 

—  igen 

—  data 

—  def 

—  fn 

—  dim 

—  slut 

—  fra 
-til 

—  step 

—  næste 

—  tag 

—  hop 
-gå 

—  hvis 

—  så 

—  input 

—  lad 

—  liste 

—  hent 
“  ny 

—  on 

—  åben 

—  put 

—  skriv 

—  læs 

—  rem 

—  nulstil 

—  tilbage 

—  kOr  (k  nul  r) 

—  gem 

—  stop 

—  mkOr(M  Knul 
R  -  maskinkode 
kør) 

—  veri 

—  vent 

er  de  samme  und- 

—  kode 

—  fri 

Thomas  Knudsen 


5 

S 

7 


REM  C CD  1987  EY  THOMAS  KNUDSEN 
REN  NAAR  DETTE  PROGRAM  RUNNES  UIL 
DET 

REM  LAUE  ET  NYT  PROGRAM, 

SOM  DU  BLOT 

REM  KAN  GEMME  MED  SAUE . 


DATA  11,9, 195 
169,44, 160,8. 
174,160,11 


7, 158, 50, 4e, 54, 49, 
133,95, 132,96,169, 


8  DATA  133,90,132,91,159 

133,98, 132,89,32,191 , 

169, , 133 

9  DATA  95,133,90,133,88, 

96,169,192,133,91,133 
163, 169,51 

10  DATA  133,95,169,192,1 
133,90, 169, 195, 133,91 
88, 169 

11  DATA  153,133,89,32,191,163,76,30, 


,130, 

153,7 

159,  1 
,89,3 

33,96 
,  169, 


160, 195, 
E, ,198, , 

60.133, 
2,  191  , 

, 169,30, 

137. 133, 
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195 , B3 , 76 , 85 , 212 , 70 , BE , 193 , 7B , 55 , 
59,83,94 

1E  DATA  197, 5B, 55, 84, 193, 73, 78, 80, 85, 
B4 , 153 , 73 , 78 , 80 , 85 , 81E , 58 , 73 , E05 , 
75,55,59 

13  DATA  811,76,55,196,71,65,193,75, 

48 , E10 , 7E , 85 , 73 , El 1 , 78 , 85 , 76 , B3 , 

84 . 73 ,  E04 , 7E 

14  DATA  79 , E08 , B4 , 73 ,76,66, 55 ,71,197, 
9E , 69 , 805 , 83 , B4 , 79 , E08 , 79 , E05 , 86 , 
69 , 78 , E1E 

15  DATA  7E, 69, 7B, 818,71,59, 805,85, 59, 

88.801.68.69.198.80.85.818.83.75, 

88.73.86 

16  DATA  163, 83',  75, 08,73, 81*1, 73.  “71 ,69, 
806 , 76 , 73 , 83 , B4 , 1 87 , 78 . 85 , 804 , 84 , 
69 , BB ,218 

17  DATA  77,75,48,810,65,65,66,59,805, 
76,85, 803 ,84,55,199,78,817,84,65, 
66, 158,84 

18  DATA  73,204,70,806,83,80,67,158, 

83 , 65 , 1 93 , 7B , 79 , 818 , 83 , B4 , 69 , 808 , 
171 , 173,170 

19  DATA  175,288,65,78,196,79,810,190, 
189,188,83,71, 806 , 73 , 78 , 81 8 , 55 , 66 , 
211 , 85,83 

20  DATA  210,70,88,201,80,79,211,83, 

31 ,810,82,78, 196, 7E, 79, 199, 69, B8, 

808 . 67 . 79 

81  DATA  211,83,73,206,84,65,806,65, 

B4 , 206 , 75 , 79 , 6B , 197 , 76 . 69 , 805 , B3 , 

84.82. 164.86 

28  DATA  65,204,65,83, 195, 67,78, B8, 
164,75,69,70,84,164,88,73,71,72, 

84. 154.77.73 

83  DATA  68, 164, 71, 207, 0,38, 70. 79, 82, 
32, 7"7, 65, 78, 71, 69, 32, 70, 73, 804 , 70  , 

73 . 76 . 38 

84  DATA  32,93,66,69,205,70,73,75,32, 

73.75.75.69.38.93.66.69. 206 .70.73, 

76.38.73 

25  DATA  39,75,38,70,85,78,68,59,212. 
69 , 78 , 72 , 69 , E9 , 38 , 73 , 75 , 75 . 69 , 38 , 

79.79.45.75 

86  nATA  73.79.197,73,75,75.69,32,73, 

79.80.95.84.38.70.73. 204 .73.75.75, 

69 . 32 . 79 

E~  DATA  85,84,80,85,94,32,70,73,204, 
70 , 73 , 7E , 79 , 65 , 96 , 78 , 69 , 94 , 38 , 77 , 

65.79.71 . 75 

28  DATA  59,210,70,79,92,75,59,92,94, 
32,68,69,85, 73 ,67,69,32, 78 ,85,77, 
77,69,810 

29  DATA  78,55,59,83,84,69,32,85,68, 

69 , 7e , 32 , 32 ,70,88, 193,83,99, 78 . B4 , 
65, 21E. 84 

30  DATA  73,76,66,65,71,69,32,32,95, 

68 , 69 , 7E , 38 , 59 , 78 . 32 , 72 , 75 , 809 , E8 , 

65.84.65.38 


31  DATA  77,65,78,71,69,804,85,68,69, 
7B , 70 , 79 , 82 , 32 , 79 , 77 , 88 , 65 , 65 , 68 , 

69,212,79 

38  DATA  B6, 69, 82, 45, 75, 48, 194,77,69, 
77 , 79 , 88 , 89 , 38 , 77 , E5 , 7B , 71 , 69 , 204 , 

76.73.78 

33  DATA  73,69,38,70,73,79,68,69,93, 
32,73,75,75,197,85,68,69,78,70,79, 

82, 32, 38, 38 

34  DATA  68, 73, 805, 59, B2, 32, 68, 73, 77, 

77.69.84.38.70.48.210.68.73.86.73, 

83.73.79 

35  DATA  78, 32, 77, E9, 58, 32, 78, 95, 204, 
75 ,85,78.32,73,32,32,90,82,79,71, 

88.65.205 

36  DATA  70,79,92,75,69,92,94,32,32, 

84 , 89 , BØ , 197 , 83 , 84 , 82 , 69 , 7B , 71 , 32 , 

70.79.92.32 

37  DATA  76,65,78,199,73,47,79,32,32, 
68,65,94,153,70,79,82,77,69,75,32, 
70,79,92 

38  DATA  32,75,79,77,90,76,59,75,211, 

75 . 65 . 79 . 32 . 73 . 75 . 75 . 69 . 32 . 32 . 73 , 

71 . 69.206 

39  DATA  85, 58, 69, 70, 73, 4E, 32, 32, 70, 

85.78.75.84.73.79. 206 .85.69.82.73, 
70,217 ,72 

40  DATA  69,78,212,158,161,172,161, 

181 , 1E1 , 194,161,208, 161,226, 161 , 
240, 161,255 

41  DATA  161,16,162,37,162.53,162,59, 
152,75,162,90.152,106,162,114,162, 
127, 152 

42  DATA  144,162,157,152,170,152,186, 
152,200, 162,213.162,228, 152,237, 

162. .  163. 14 

43  DATA  163,30,153,36,163,131,163,13, 

79.75.13. .  32 . 32 .70.59.74. 7E , 46 , , 
32,^3,32,32 

44  DATA, 13,10,42,75,75,55,92,42,13, 

10. .  13. 10.66.82.85.68.84.0. 162. , 
142,32,208 

45  DATA  142,33,208, 1B9, 52, 195,201, 

255 , 240 ,79,32,210, 255 , 232 .76,39, 
195, 147,5, 17 

46  DATA  42,42,42,42,32,58,65,78,32, 

66 . 55 . 83  ,  ‘73 , 57 , 32 , 40 . 67 , 4  1 , 32 , 49  , 

57.56.55.32 

47  DATA  SE, 89, 32, 94, 72, 79, 77, 85, 83, 
38,75,32,42,42.42,42,1 7 , 83 , 89 , 93 , 
32,52,57,49 

48  DATA  53 , 50 , 32 ,70,79, 82 , 32 ,71,69, 

78.83.84  55  82  94  13  255  255 
159,54, 133, 1 

49  DATA  SS :  REM  **  END  GF  DATA  ** 

50  FGR  A»2049  TG  2988: READ  E:?GKE  A.B 
:OC*E:NEXT:  IF  C<  >  885 1 2  THEN  PRIN 
T”DATA  FEJL": END 

51  PGKE  45 , 174 : PDKE  46,11 
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Enterprise 

Buer 


Et  rigtigt  godt  lille  "tool",  der  kan 
gøre  det  nemmere  for  dig  at  bruge 
computeren  som  tegneredskab. 
Det  er  'Buer"  i  en  nøddeskal.  Tast 
programmet  ind  på  din  Enterprise 
og  du  vil  være  i  stand  til  at  tegne 
en  bue  fra  et  punkt  til  et  andet 
uden  at  skulle  fodre  maskinen 
med  masser  af  indviklede  pro¬ 
gramlinier.  For  at  tegne  en  bue. 
skal  du  bare  fortælle  programmet 
buens  maksimalhøjde  samt  be¬ 
gyndelses-  og  ende-punktet.  Det¬ 
te  gøres  ved  kommandoen: 

CALL  BUE  (SX.SY.SLX.SLY.H) 
(SX.SY)  er  buens  begyndelses¬ 
punkt.  (SLX.SLY)  er  buens  ende¬ 
punkt.  H  er  buens  maksimalhøjde. 
Hvis  buen  ikke  kan  være  på  skær¬ 
men,  så  nøjes  programmet  bare 
med  at  tegne  den  del.  der  er  plads 
til.  Efter  selve  bueprogrammet  - 
DEF-blokken  - .  er  der  givet  et  sim¬ 
pelt  eksempel  på  udnyttelse  af 
'Buer'. 

Henrik  Jensen 


100  DEF  BUE  <  SX , SY , SLX , SLY , H ) 

110  OPTION  ANGLE  DEGREES 

120  LET  Z«SLX-SX:LET  V«SLY-SY:LET  MX-<SX+SLX> /2XLET  MY“ (SY+SLY) /2S  LET  A-<S8R 
(Z-'2+V''2)  )  /2 

130  IF  Z-0  THEN  GOTO  210 

140  LET  VI-ATN(V/Z) ILET  AX-COS < VI > : LET  AY-SIN(VI) 

130  FOR  T-0  TO  180  STEP  10 

160  LET  D-A*COS<T> : LET  J=H*SIN ( T ) : LET  P1-D*AX-J*AY+MX: LET  P2«D*AY+J*AX+MY: 

LET  E*ROUND (PI , 1 ) : LET  L-ROUND <P2, 1 ) 

170  IF  E<0  OR  E>1279  OR  L<0  OR  L>719  THEN  SET  BEAM  OFF:GOTO  190 

180  PLOT  P1.P2J 

190  NEXT 
200  GOTO  260 

210  FOR  T— 90  TO  90  STEP  10 

220  LET  P1»H#C0S (T) +MX: LET  P2*A#SIN (T) +MY: LET  E-ROUND (PI , 1 ) : LET  L*R0UND(P2 

,  1) 

230  IF  E<0  OR  E>1279  OR  L<0  OR  L>719  THEN  SET  BEAM  OFF:GOTO  230 

240  PLOT  PI , P2| 

230  NEXT 

260  SET  BEAM  OFF 

270  END  DEF 
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ftl ' 1-1 

280  ! ************************ ! 

290  !**DETTE  ER  ET  EKSEMPEL#*! 

300  ! ************************ ! 

310  GRAPHICS  4 

320  SET  #101 : PALETTE  O , 235 , RED , YELLOW 
330  CALL  BUE ( 440 , 523 , 880 , 523 , 100 ) 

340  CALL  BUE (880, 523, 880, 123, 100) 

350  CALL  BUE (880, 123,440, 123,-100) 

360  CALL  BUE (440, 123,440,523, -100) 

370  CALL  BUE (440, 523, 880, 123, 100) 

380  CALL  BUE(440, 123,880,523, 100) 

390  ! *####******#****###**###### ! 

400  !**DETTE  ER  BARE  LIDT  PYNT##! 

410  ! #**##***#**#***#**#**#**#** ! 

420  SET  INK  2:PL0T  600, 523, PAINT: PLOT  600, 123, PAINT: SET  INK  3:PL0T  440,300,PAI 
NT : PLOT  880, 300, PAINT 
430  RANDOMIZE 
440  DO 

450  SET  #10l:PALETTE  0,0, INT (RND*256) , INT (RND*236) 

460  WAIT  1 

470  LOOP  UNTIL  INKEY*<>"“ 


Mastermind 


Her  er  et  godt  mastermind  til 
BBC'en.  Det  følger  de  rigtige  reg¬ 
ler  til  punkt  og  prikke,  hvor  der  er 
seks  farver,  og  det  er  muligt  at  an¬ 
bringe  samme  farver  i  samme  ko¬ 
de  mere  end  een  gang.  Det  er  dog 
ikke  muligt  at  bruge  'tomme  hul¬ 
ler'.  dvs.  at  undlade  at  sætte  no¬ 
gen  brikker  i  nogle  af  hullerne.  Gra¬ 
fikken  er  ikke  i  topklasse,  men  det 
skyldes,  at  der  er  benyttet  'MODE 
2'.  da  man  skal  bruge  mindst  otte 
farver,  er  det  jo  en  nødvendighed. 
God  fornøjelse. 


DIMkode (4) : DI  Mk (4) : DIMgaet (4) i  DI  Mg (4) 
REPEAT 
PROCinit 
PROCspi 1 1  ep  1  ade 
PROCgaet 
PROCslut 
UNTIL  gameover 
MODE  7 
END 
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190  DEFPROCinit 
200  i  kke-f  1  eregaet=FALSE 
210  gameover=FALSE 
220  rigti gkode=FALSE 
230  VDU  5 

240  VDU  29,224; 100; 

250  VDU  19,5,7,0,0,0 
260  VDU  19,0,6,0,0,0 
270  VDU  19,6,0,0,0,0 
280  VDU  19,7,5,0,0,0 
290  y/.=80 

300  FOR  test= 1  TO  4: kode (test > =RND <6> : NEXT 
310  ENDPROC 

320  DEFPROCsp i  1 1  ep  1 ade 
330  6C0L0.129 
340  CL6 
350  GCOL  0.4 

360  MOVE  192,0: DRAW  O, O: PLOT  85, 192, 416: PLOT  85,0,416 
370  GCOL  0,0 

380  MOVE  O, 512: PLOT  85, 832, 4 16: PLU P  85,832,512 
390  GCOL  0,4 

400  MOVE  O, '576: DRAW  O, 512: PLOT  85, 832, 576: PLOT  85,832,512 
410  GCOL  0,7 

420  MOVE  192, 4 16: DRAW  832, 416:  PLOT  85,  192,  O:  PLOT  85,832,0 

430  GC0L.0,3 

440  RESTORE 

450  MOVE  0,0 

460  REPEAT 

470  READ  y 7. 

480  DRAW  x7.,y7. 

490  UNTIL  7,=y7. 

500  GCOL  0,2 

510  MOVE  64,560 

520  PR I NT" MASTER-MIND" 

530  MOVE  32,400 
540  PRINT" 10" 

550  MOVE  64 , 368 : PR I NT " 9 " : MOVE  64 , 336: PRINT " 8" : MOVE  64, 304: PR I NT "7" : MOVE  64.272 
:  PR I NT " 6 "  :  MO VE  64 , 240 : PR I NT " 5 " : MOVE  64 , 208 : PR I NT " 4 " 

560  MOVE  64 , 1 76 :  PR I NT " 3 "  :  MOVE  64, 144: PRINT"2" : MOVE  64, 1 12: PRINT" 1 " 

570  MOVE  224 ,48: PR I NT "GÅET" 

580  GCOLO, 1 : MOVE  64, 480: PRINT"?" 

590  GCOLO , 6 : MOVE-224 , 9 1 5 : PR I NT " f 0=R0D" ’ " f 1 =GRON "  ’  " f 2=GUL " ’ " f 3=BLAA f  4=HV ID"’ 

" f 5=S0RT " : M0VE400 , 9 1 5 : PR I NT " f  8=SLET "  : 'M0VE400 , 883 : PR I NT" f 9=SVAR " 

600  ENDPROC 

610  DATA  0,576,832,576,832,512,0,512, 192,512, 192,416,0,416,832,416,832,512,832 
.0,512,0,512,416, 192,416, 192,0,832,0,832,64,0,64, 192,64, 192,0,0,0 
620  DEFPROCgaet 
630  X7.=480 
640  REPEAT 

650  IF  (V7.-80)  /32>=10  THEN  i  kke-f  1  er  egaet=TRUE :  r  i  gt  i  gkode=TRUE :  GOTO  780 
660  IF  X 7=736  THEN  X7.=480 
670  X7.=X7.+64 

680  knaptryk=GET 

690  IF  knaptr yk=49  THEN  PROCf arve < 1 >: 60T0  780 

700  IF  knaptryk=50  THEN  PROC-f  arve  (2)  :  GOTO  780 

710  IF  knaptryk=51  THEN  PROC-f  ar  ve  (3)  :  GOTO  780 

720  IF  knaptryk=52  THEN  PROCf arve (4) : GOTO  780 

730  IF  knaptryk=53  THEN  PROC-f  ar  ve  (5)  :  GOTO  780 

740  IF  knaptr yk=54  THEN  PROCf arve (6) : GOTO  780 

750  IF  knaptryk=69  THEN  GCOLO,  7 :  M0VE544, 48:  PRINT" ****":  X7.=480:  GOTO  7.80 

760  IF  knaptryk=83  AND  POINT <768, 32) < >7  THEN  PROCsvar : GOTO  780 

770  X7.=  X7.-64 

780  UNTIL  rigtigkode 

790  ENDPROC 

800  DEFPROCf arve (farve) 

810  GCOL  O, farve 

820  MOVE  XV.,  48:  PRINT"*" 

830  ENDPROC 
840  DEFPROCsvar 


30  -  TAST 


850  X7.=544 

860  sor  t=0:  h  vi  d=0 :  Y*/.=Y‘/.+32 
870  gået (1)=P0INT (576,32) 

880  gået (2) =P0INT (640, 32) 

890  gået (5) =P0 1  NT ( 704 , 32 ) 

900  gået  (4)  =F'0INT  (768,  32) 

910  PROCsor t _h vi d 
920  PROCvi skode 
930  F7.=224 

940  IF  h vi d=4  THEN  ri gti gkode=TRUE 
950  GCOL  0,5 

960  MOVE  FV.,  Y'/.+  lO:  IF  hvid>=l  THEN  PRINT"  .  "  :  hvid=hvid-l :  F*=F%+64:  GOTO  960 
970  GCOL  0,6 

980  MOVE  F7. ,  Y'/.+  lO:  IF  sort>=l  THEN  PRINT"  .  "  :  sort  =  sor  t-1 :  F/;=F7.+64s  GOTO  980 
990  X7.=480 
1000  ENDF'ROC 
1010  DEFPROCsl ut 
1020  gået < 1 ) =kode ( 1 ) 

1030  gået (2) “kode (2) 

1040  gået <3> =kode (3) 

1050  gået (4) =kode (4) 

1060  GCOLO, 4 

1070  IF  i  kke-f  1  er egaet  THEN  MOVE  192, 640: PRINT"AK  -  JA"  ELSE  MOVE  128,  640:  PRINT" 
TILLYKKE ! " 

1080  YV.=472 :  GCOLO .  7 :  MOVE  544, 444:  MOVE  796,  444:  PLOT  85, 544 , 476:  PLOT  85, 796,  476:  P 
ROCvi skode 
1090  GCOLO, 4 

1100  MOVE  -160, -32: PRINT "VIL  DU  PROVE  IGEN?" 

1110  knaptryk=GET 

1120  IF  knaptryk=78  THEN  gameover =TRUE : ENDPROC 

1130  IF  knaptryk=74  THEN  ENDPROC 

1140  GOTO  1110 

1150  DEFPROCsort_hvi d 

1160  FOR  husk=l  TO  •  4 :  k  (husk )  =kode  (husk )  :  g  (husk )  =gaet.  (husk )  :  NEXT 
1170  FOR  test= 1  TO  4 

1180  IF  gået ( test ) =kode ( test )  THEN  hvi d=hvi d+ 1 : gået ( test ) =0: kode ( test ) =7 

1190  NEXT 

1200  FOR  test=l  TO  4 

1210  FOR  husk=l  TO  4 

1220  IF  gået ( test ) =kode (husk >  THEN  sort=sort+l : gået (test ) =0: kode (husk ) =7 

1230  NEXT  husk 
1240  NEXT  test 
1250  FOR  husk= 1  TO  4 

1 260  kode (husk >  =k (husk ) : gået (husk) =g (husk ) 

1270  NEXT 

1280  ENDPROC 

1290  DEFPROCvi s kode 

1300  M0VE544,  Y/i:  GCOLO,  gået  ( 1 )  :  PRINT"*" 

1310  M0VE608,  Y'/.i  GCOLO,  gået  (2)  : 

1320  M0VE672,  Y'/.:  GCOLO,  gået  (3)  : 

1 330  M0VE736 ,  Y7. :  GCOLO ,  gået  ( 4 )  : 

1340  GCOLO. 7: M0VE544, 48: PRINT' 

1350  ENDPROC 
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32  -  TAST 


GAMES 


70  LGCATE  26 , i 6 : PRINT * 5 .  Søge ■ : LOCATE  38 ,8 : PRINT * 6 .  Arsovers i qt ■ : LOCATE  38.10IPR 
I NT “ 7 .  Ændre  f ’ tast er ■ : LOCATE  38 ,  1 2:  PRINT * 8.  Regnemask i ne " : LOCATE  38, 14:PRlNT"9. 

Save  data" : LOCATE  38. 16: PRINT’O.  Load  data’ 

80  LOCATE  32, 22: PRINT ‘Fr i e  by tes " FRE (""> -4096 : LOCATE  26. 25: PRINT* Antal  poster  de 
r  er  brugt " n- 1 : LOCATE  32, 19:PRI NT "Printer:  "p*:SOUND  1,119: GOSUB  570: IF  i*-"p"  A 
ND  p=8  TREN  p*="FRA":p=2  ELSE  IF  i*-"p"  AND  p-2  THEN  p*-CHR* ( 24 ) + " TIL" +CHR* ( 24 ) : 

lo  IF  i*< "O"  OR  i*>"9"  THEN  80  ELSE  ON  ASC(i*)-47  GOSUB  650,160,130,200,230,750, 
960, 690, 110, 620: GOTO  50 
100  ’  Regnemaskine 

110  CLSH3: INPUTH3  "HUSK ! !  CTRL+.+tast.  Stykke" J c*: KEY  30,"?  " ♦c*+CHR* ( 13) ♦ " CALL 
8*bbl8:  GOTO  50"+CHR*(13)  :CLS#3:END 
120  ’  Slette  post 

130  CLS:LOCATE  1 ,25: INPUT"Nr.  du  vil  slette  (ENTER-MENU)  "|s:IF  s-0  THEN  GOSUB  5 
00: RETURN  ELSE  IF  s< 1  OR  s>n-l  THEN  GOSUB  300:G0T0  130 

140  FOR  m=s  TO  n :  dX ( m ) =dX ( m+ 1 ): w* ( m ) =w* <m+ 1 ): t (m) -t <m+ 1 ): NEXT : n-n- 1 : GOTO  130 
150  ’  Input 

,160  GOSUB  520:CLS:s-p: P-2:G0SUB  280 : p-s: L0CATEH4, 40,1: PRINTM4 , CHR* ( 24 ) | : PRINTH4 , 

■  USING ’  OVERFØRT  .  Wtt  "  J  k (n-1 ) : PRINT#4 ,CHR* (24 ) I 

170  GOSUB  360:  IF  d*=""  THEN  RETURN  ELSE  PR I NT #4, TAB (5) 1 dX(n) *  "t*j:WINDOW  SWAP  2 
,4:G0SUB  450 : UINDOW  SUAP  2,4 

180  PRINTW3  "Er  dette  rigtigt  (en  tast /n )" 1 : GOSUB  570: IF  i*="n*  THEN  PRINTM4, TAB 
,(0)  JCHR*(11)|  :PRINT#3,CHft*(Il>  :  GOTO  170  ELSE  PRINTM3, TAB ( 1 ) I CHR* ( 1 1 )  | SPACE* (40)  J 
CHR*< 11 ): GOSUB  420: n=n+l : GOSUB  520: GOTO  170 
-190  ’  Rette 

■200  CLS:LOCATE  1 , 25: INPUT'Nr .  du  vil  rette  (ENTER-MENU)  "js:lF  s=0  THEN  GOSUB  50 
;o: RETURN  ELSE  IF  s< 1  OR  s>n-l  THEN  GOSUB  300: GOTO  200 

■210  LOCATE  8,3:PRINT  w*(s):LOCATE  18,4:PRINT  t (s) :LOCATE  10 . 10 : PRINT " Brug  ~COPY~ 
:  tasten  til  at  kopire  med . • : LOCATE  1 , 2: 1 -n : n=s: UINDOW  SUAP  6,3:GOSUB  370In-l:WIN 
DOW  SWAP  0,3:IF  d*=  * "  THEN  RETURN  ELSE  200 
220  ’  Udskriv  data 

230  CLS: 1 =n: GOSUB  280:F0R  n=l  TO  1-1: GOSUB  340: PRINTM2, CHR* (24) I : PRINTttp, USING" W 
:«tt"lni  :PRINT**2,CHR*(24)  5  IPRINTHp,  "  "f*"  " w* ( n ) I : GOSUB  450:  IF  n  MOD  23-0  THEN  GOS 
UB  260 

240  NEXT: n=l : GOSUB  600: RETURN 
250  ’  Udskrift  pause 

260  IF  p=8  THEN  RETURN  ELSE  PR I NT# 1 . TAB ( 23 ) " TRYK  EN  TAST  FOR  FLERE  ( ENTER-MENY ) * 
:GOSUB  570IIF  i *=CHR* (13)  THEN  n= 1 : RETURN  ELSE  CLSN 1 : RETURN 
270  ’  Overskrift 

280  PRINT  CHR* ( 24 ) | : WINDOW  SWAP  O , 2 : PRINT#p >Nr >" a* " >Dato< <<>>>>>>>>>>>>>> >Teks 
t  <<<<<<<  <<<<<<<<<<>  >Kasse<  <>> Ind  t»gt<  <>  >Udgi  +  t< " I  : UINDOW  SUAP  0,2:PRINT  CHR*(24) 

: RETURN 

290  1  Fejl  ret/slet 

300  LOCATE  1 , 25: PRINT  SPC(8) "Dette  nr  duer  i kke ! "SPC ( 10) : GOSUB  400:RETURN 
310  ’  Fejl  dato  input 

320  e=VAL(MID*(d*,l,2) ) :f=VAL(MID*(d*,3,2) )  :  IF  e< 1  OR  e>12  THEN  PRINTM3, "Fej  1  i 
data! " : GOSUB  400:G0T0  360  ELSE  IF  f<l  OR  f>m%(e)  THEN  PRINTM3, "Fej  1  i  dato!*:GOS 
UB  400: GOTO  360  ELSE  370 
330  ’  Dato  streng 

340  d*=STR*(dX(nf) : f =VAL (RIGHT® ( d*. 2 ) ).: e*-LEFT* ( d*. LEN ( d*) -2) :e-VAL(e*) : b*“LEFT* 
(m* (e) .3) : c*=STR*(f )+".": f*=b*+c*: IF  f<10  THEN  f*-b*+"  "+c*:RETURN  ELSE  RETURN 
350  ’  Input/Rette 

360  INPUTH3  "MAnedDato  fx.  0916  ( ENTER-MENU) " I d«: IF  d*-""  THEN  GOSUB  500:RETURN 
ELSE  dX(n)=VAL(d») :d  =  d%(n) : IF  LEN(d*)<>4  OR  INSTR (d*, " fc" ) >0  THEN  PRINTM3 , "Fej  1  i 
længden. " : GOSUB  400:G0T0  360  ELSE  320 

370  PRINT#3,TAB<46) ; CHR* ( 1 43) 1 " STOP  her " I CHR* ( 1 1 ) : LINE  INPUTM3, "Tekst " J t*: IF  LEN 
( t* ) >38  THEN  PRINTH3, "Fej  1  i  1 ængden .": GOSUB  400:G0T0  370 

380  w* ( n ) =t*: I NPUTB3 , "Ud-- tal , Ind=tal " | t : t ( n ) =ROUND ( t , 2) : k ( n) =k ( n-1 ) +t ( n) : RETURN 
390  ’  Pause 

400  FOR  0=1  TO  500: NEXT: RETURN 
410  ’  Sorterer 

420  IF  dX(n) >d%(n-l)  AND  w* ( n ) >w* ( n- 1 )  THEN  RETURN 

430  FOR  m=n  TO  2  STEP  -1:IF  ( d% ( m ) < dX (m- 1 ) )  OR  ( dX <ra ) =dX ( m- 1 )  AND  w* (m) <w* (m-1 ) ) 
THEN  w*(m)=w*(m-l) :t(m)=t(m-l) : dX ( m ) -dX ( m- 1 ) : w* (m-1 ) -t*: t (m-1 ) -t : dX (m-1 ) -d : t*=w* 
( m- 1 ) : NEXT  ELSE  RETURN 
440  ’  Tal  udskrift 

450  PR  I  NT  #p, TAB  (51)  S  USING  *######,  .  MM"  J  k  (n)  5  :  IF  tlnKO  THEN  PRINTMp,  TAB  <  72)  I  USING 
i ABS ( t (n) )  ; : RETURN 

460  PRlNTHp,  TAB  (62)  J  USI NG "  ")  t  ( n )  J  :  RETURN 

470  '  See  udskrift 

480  PRINTK2, CHR* ( 24 ) 5 : PRINTWp, USING* HttM *  1  ni : PR I NT M2, CHR* ( 24 ) I : PRINTMp,  "  "f*"  "w* 

(  n )  |  :  GOSUB  450:  b-b  +  t  (n)  :  t-t  +  1  :  IF  t  MOD  2300  THEN  RETURN  ELSE  GOSUB  260:RETURN 
490  ’  Ordne  kassen 

500  FOR  m=l  TO  n : k ( m ) =ROUND ( k ( m- 1 )+ t ( m) , 2 ): NEXT: RETURN 
510  ’  Mere  plads? 

520  IF  n  >a  OR  FRE ( " " ) -4200< O  THEN  LOCATE  1 , 25: PRINT" Ikke  mere  plads  desv*re!":GO 
SUB  400:G0T0  50  ELSE  RETURN 
530  ’  Sammentæller 

540  IF  t(n)(0  THEN  u ( e) =u ( e) +ABS ( t ( n ) ) : u ( O ) =u < O) +ABS ( t ( n ) )  ELSE  i (e) =i (e) *t (n) : i 
( O )  =  i  ( O )  + 1  ( n ) 

550  r (e) = i (e) -u (e) : RETURN 
560  '  Inkey* 

570  SOUND  1. 1911,3:S0UND  3,478,5 

580  i*=LOWER* ( INKEY*) : IF  i*=""  THEN  580  ELSE  RETURN 
590  ’  Tast  tryk 

600  CLSH 1 : SOUND  1,119:L0CATE  35, 25: PRINT'Tryk  en  tast":CALL  LBB1 8 : RETURN 
610  1  Save  data 

620  OPENOUT  s«: WRITEH9, n, a«: FOR  m-1  TO  n : WRITEM9, w* (m) , d% (m) , k (■) , t ( m ) : NEXT 
630  FOR  m-0  TO  29:  WRITEt»9,  h*  (■):  NEXT:  CLOSEOUT:  RETURN 
640  ’  Load  data 

f5Su£hSiE5INT’HUSK!  du  *  *  etter  alle  data.  Save  ?  (J/en  taat)":GOSUB  570:IF  i*=*j 
THEN  620 

2SININ«*?^I^UTf.96';ia*:FroR  m*‘1  T0  n :  INPUTH9,  w*  (m),dX(m)  ,k(m)  ,t(m)  :  NEXT 
?2cvfPocTn2k.TO  29: INPUTft9, h*(m) : KEY  m , h* ( m ) : NEX* : CLOSÉ IN : Foft  m=n+l  TO  a:w*(m)-"" 

• NhX i • Kt I UKN 
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GAMES 


680  ’  F '“taster 

690  CLS:PRINT  CHR* (24) STRING* <34, 62) ‘Tekst  taster “STRING* < 34 , 60) CHR* < 24) : PRINT" T 
altaster. “SPC(30) “F’taster. “ : FOR  m=0  TO  9:L0CATE  1, m+5: PRINT  CHR*<24)“  CTRL“m“  = 
"CHR* (24) "  “h* (m) : LOCATE  41 , < <m+10) *2) -15: PRINT  CHR*(24)“  SHIFT  fm"  =  “CHR*<24 
)“  “h*(m+10) 

700  LOCATE  41  ,< <m+10) *2) -14: PRINT  CHR*<24)“  CTRL  f“m“  =  “CHR*(24)“  “h*<m+20):NE 
XT:GOSUB  600: CLS: PRINT" Tal  med  CTRL  nede.  Har  tastnumrene:  “CHR*<24)“  123 
4567890  “CHR* (24) 

710  LOCATE  1,5: PR I NT “Numrene  Tor  F’ taster PRINT: FOR  m=0  TO  9:L0CATE  5+m*3,m+7: 
PRINT“SHIFT  +  *m“  :  "CHR* (24 ) i m+ 10; CHR* (24) ; SPC ( 10) “CTRL  -f  “m“  :  “CHR* (24) ; m+20 I CH 

R* ( 24 ) :next 

720  LOCATE  1, 19: INPUT"Tekst  (ENTER=MENU) “ 5 h*: IF  h*=“"  THEN  RETURN  ELSE  PRINT: IF 
LEN < h*) >20  THEN  PRINT“For  mange  teqn!‘:GOSUB  400:G0T0  720 

730  INPUT“Tast-nr: “Jh: IF  h<0  OR  h>29  THEN  720  ELSE  h*(h)=h*:KEY  h,h*:QOTO  690 
740  •  Søedel 
750  l=n-l 

760  CLS:PRINT  CHR* ( 24 ) ; STRING* ( 36,62) “ SØGNING “STRING* ( 37,60 ) S CHR* (24) : LOCATE  34, 
5:PRINT*A.  Søge  Måned “: LOCATE  34 , 8: PRINT *B.  Søge  Dato1 : LOCATE  34, 11 :PRINT“C.  Søg 
•  Tekst" 

770  LOCATE  34, 14: PRINT“D.  Søge  Ind/Ud“ :LOCATE  34, 17: PRINT“E.  Liste  nr-nr’:LOCATE 
34,20!PRINT“F.  Ændre  +  /-  “i fLOCATE  34 , 23: PRINT“ENTER=HOVED  MENU“ 

780  GOSUB  570: IF  i*<“a“  OR  i*>“f“  THEN  IF  i*=CHR*<13)  THEN  n=l+l:RETURN  ELSE  780 

790  CLS:GOSUB  280:CLS#2:t=0:b-0:0N  ASC (i*) -96  GOSUB  810 , 840, 870, 900, 930, 800: PRIN 

Tttp,TAB(56) jUSING“Ialt  tttttttttttt. . tttt“ | b: GOSUB  600: GOTO  760 

800  INPUTttl, “Indtast  +  /-  tal  >  O  “ ; j : IF  j<0  THEN  800  ELSE  RETURN 

810  INPUTttl, "Hvi lken  måned  <l-12)“;s:lF  s< 1  OR  s>12  THEN  810 

820  FOR  n=l  TO  l: GOSUB  340: IF  e=s  THEN  GOSUB  480 

830  NEXT: RETURN 

840  INPUTttl .“Hvilken  dato  (1-31)“; s: IF  s<l  OR  s>31  THEN  840 
850  FOR  n»l  TO  1 : GOSUB  340: IF  i= s  THEN  GOSUB  480 
860  NEXT: RETURN 

870  INPUTttl,  “Hvilken  tekst “;t*:IF  LEN(t*Xl  OR  LEN (t*)  >38  THEN  870 

880  FOR  n=l  TO  l: GOSUB  340:IF  INSTR (LOWER* < w* ( n )), LOWER* ( t*) )< >0  THEN  GOSUB  480 

890  NEXT: RETURN 

900  INPUTttl, “Hvilken  Indtegt/Udgif t  (ud=-tal , ind=tal ) “ ; s 

910  FOR  n=l  TO  1:IF  t(n)+j>=s  AND  t(n)-j<=s  THEN  GOSUB  340:G0SUB  480 

920  NEXT: RETURN 

930  IF  n=l  THEN  RETURN  ELSE  INPUTttl , “Start .Slut  nr  “)s,o:IF  s<l  OR  o>l  THEN  930 
940  FOR  n=s  TO  o:GOSUB  340:G0SUB  480: NEXT: RETURN 
950  ’  Arsoversigt 

960  CL8: l»n: LOCATE  1,1: PRINT  CHR*  <  24 ) I  STRING* ( 33,62) “ARSOVERSIGT  “a*l STRING* (33, 
60) JCHR*(24) :DIM  i ( 12) ,u ( 12) , r ( 12) : FOR  n=l  TO  l: GOSUB  340:G0SUB  540: NEXT: n=l 
970  PRINT:  PRINT  “Måned  “SPC  ( 15)  “  I  ndtegt "SPC  (11)  "Udgi  +  fSPC  ( 13)  “Rest  “SPC  ( 14)  "Måned  “ 
:FOR  m=l  TO  12:L0CATE  1 , m+5: PRINT  m* (m) : LOCATE  17, m+5: PRINT  USING'tttttttttttttt, . tttt 
tttttttttttttt,.tttt  tttttttttttttt , .tttt “; i (m) ,u(m) ,r (m) : LOCATE  81-LEN(m*<m) > ,m+5:PRINT  m 

* (m) : NEXT 

980  PRINT: PRINT" I al t  "a*“:  “ :: PRINT  USING“tttttttttttttttt. . tttt  tttttttttttttttt,.tttt 

tttttttttttttt« , .tttt “, i (O) ,u(0) , i (O)-u(O) : LOCATE  73 , 20: PRINT" : *  a*“  Ialt“:GOSUB  &00 
990  *  3D  Søler 

1000  MODE  0:s=0:F0R  m=l  TO  12: s=MAX ( ABS ( r (m) ) , s) : NEXT: g*=CHR* (128) +CHR* ( 129) 

1010  IF  s<-80  THEN  s= 1 : q*=CHR* (128) : GOTO  1070 

1020  IF  s<=800  THEN  s=10: g*=CHR* ( 128) +CHR* < 130) : GOTO  1070 

1030  IF  s<  =8000  THEN  s=100:G0T0  1070 

1040  IF  s< =80000  THEN  s= 1 000 : g*=g*+CHR*( 130) : GOTO  1070 
1050  IF  s<  =800000  THEN  s=10000: g*=g*+CHR* < 129) 

1060  IF  s >800000  THEN  RETURN 

1070  PEN  1: TAG: MOVE  0,34:PRINT  g*;:MOVE  0, 376:  PRINT  g*|*.FOR  m=40  TO  360  STEP  20: 
MOVE  80, m: DRAWR  20.0,1: NEXT 

1080  o=10:F0R  m=21 6  TO  366  STEP  20:M0VE  -30,m:PRINT  os:MOVE  -30, ABS (m-160) : PRINT 
90-OI :o=o+10:NEXT:M0VE  0.396:PRINT"Kr“| :MOVE  O, 14:PRINT“Kr“ J :MOVE  10,200:DRAW  6 
39, 200: MOVE  100, 10: DR AW  100,390 

1090  FOR  0=1  TO  12:q=(r(o)/s)*2:lF  q<0  THEN  FOR  m=0  TO  ABS(q):MOVE  0*44+64, 200-m 
: DRAUR  24,0,7: DRAWR  12, 7 , 8: NEXT: FOR  q=l  TO  7:M0VE  0*44+64+ < q*2) , 200+q: DRAWR  24,0 

,9:next:g6t6  1110 

1100  FOR  m=0  TO  q:MOVE  o*44+64 , 200+m: DRAWR  24, O, 10: DRAWR  12, 7, 5: NEXT: FOR  q=l  TO 
7:M0VE  0*44+64+ (q*2) ,200+m+q: DRAWR  24.0,6:NEXT 

1110  NEXT: o=l: FOR  m=l 12  TO  639  STEP  44:M0VE  m,16,l:PRINT  LEFT* (m* (o) , 1 ) J : MOVE  m, 
399:PRINT  LEFT* (m* ( o ) , 1 ) ! : o=o+ 1 : NEXT : TAGOFF : ERASE  i,u,r:SOUND  1,119:CALL  tcBB18: R 
ETURN 

1120  RESUME  NEXT 

1130  ’  Start  som  slettes 

1140  a=730: n=l : DIM  w* (a) , m* ( 12) , h* ( 29) , m% ( 12) , d\ ( a) , k (a) , t (a) : INK  0,1: INK  1,24:1 
NK  2,20: INK  3,6: INK  4,26:INK  5,18:INK  6,19:INK  7,3:INK  8.6:INK  9,7:INK  10,9:INK 
12,18: INK  14, 1,24: SPEED  INK  10, 40: PAPER  O: BORDER  1: MODE  6 

1150  PEN  12: LOCATE  7,4: PRINT"REGNSKAB“ : LOCATE  10, 8: PRINT’Af “ : PEN  3:L0CATE  1.13:P 
RINT  CHR* < 164) ! : PEN  2:PRINT"  Peder  J.  Pedersen “: PEN  4:L0CATE  8. 18:PRINT“Karise“ 
1160  SYMBOL  AFTER  256: MEMORY  HIMEM-547: FOR  m=l  TO  9: READ  o:POKE  HIMEM+m, o: NEXT: q 
•INT ( (HIMEM+1 ) /2S6) : o« (HIMEM+l > - (256*q) : POKE  HIMEM+5, o: POKE  HIMEM+6, q: CÅLL  HIMEM 
♦llDATA  33, 160,2, 17,0,0, 195,21, 187 

1170  SYMBOL  AFTER  91: SYMBOL  91 , 126, 216, 216, 254, 216, 216, 222: SYMBOL  92.118,200,214 


HOV  O  I  TIDUL  X  A.O  ■  lJOiUtiOL|JT,Oi.iOti  UD,  9IHDUL  1£7  i  IVåi  X  OO  ■  Xwwa  1  JOi  XWwa  Xwwa  iVåi  vi 

SYMBOL  130.96, 144,144, 144, 144, 144,96, 0:KEY  DEF  17, 1 , 125, 93: KEY  DEF  19, 1 , li3, 91 : K 
EY  DEF  22,1.124,95 

1190  KEY  DEF  64, 1, 49, 33, 129: KEY  DEF  65, 1, 50, 34, 130: KEY  DEF  57, 1,51,35, 13l:KEY  DE 
F  56, 1,52,36, 132: KEY  DEF  49. 1 , 53, 37, 133: KEY  DEF  48, 1 , 54, 38, 134: KEY  DEF  41,1,55,3 
9,135: KEY  DEF  40.1,56,40,136 

1200  KEY  DEF  33, 1, 57, 41, 137: KEY  DEF  32, 1 , 48, 95, 128: KEY  DEF  7, 1,46, 44, 158: KEY  DEF 
15, 1,48, 138, 148:KEY  DEF  13, 1,49, 139, l49:KEY  DEF  14, 1 ,50, 140, 150:KEY  DEF  5,1,51, 
141 ,151 : KEY  DEF  20, 1 , 52, 142, 152: KEY  DEF  12, 1 , 53, 143, 153: KEY  DEF  4,1,54,144,154 
1210  KEY  DEF  10, 1 , 55, 145, 15S: KEY  DEF  1 1 , 1 , 56 , 146 , 156 : KEY  DEF  3, 1 , 57l 147, 157: KEY 
DEF  6,0. 13, 13, 159:KEY  DEF  66, O .0,0. O : FOR  m=0  TO  31 : KEY  m, " “ : NEXT: FOR  m=l  TO  12 
1220  READ  m*(m) .mX(m) : NEXT: LOCATE  1,22: PEN  1 : PRINT"TRYK  PA  ~CTRL  F0~  ! “ : KEY  20,“ 
GOTO  20“ +CHR* (13): DELETE  1140-:DATA  Januar , 31 , Februar , 28 , Marte, 31 , Apr i  1 , 30 , Mej , 3 
1, Juni, 30, Juli, 31, August , 31 , September , 30, Ok toner , 31 , November , 30, December , 3l 


34  -  TAST 


Amstrad 


Ams-fight 


Har  du  kløe  i  aftrækkerfingeren? 
Har  du  agressive  tendenser,  som 
gi'rdig  løst  til  at  udbombe  byer  og 
bare  smadre  løs?  Så  prøv  dette 
spil  på  din  Amsie.  I  "Ams-fight"  får 
du  muligheden  for  at  kæmpe  for 
fuld  fart. 

Du  er  jagerpilot,  og  i  dit  kampfly 
får  du  til  opgave  at  kæmpe  mod 
fjendtligejagere.  bombemaskiner, 
UFO'er  og  andre  spændende  ob¬ 
jekter.  Rent 


100  GOSIJB  3050 
110  GOSUB  3460 

120  ri  l=0:n2=0:  GOSUB  130: GOTO  170 

1 30  I F  NOT  SQ  ( 1 )  AND  2  THEN  SOUND  1 , 1 1  <  n  1 , 0 , 0 )  ,  1 1  ( n  1  ,  1  ,  O )  ,  1 5 , 3 :  ri  1  =n  1  +  1:1 
F  n 1 =84  THEN  n 1=0: AFTER  200  GOSUB  130 

140  IF  NOT  SO  ( 4 )  AND  2  THEN  SOUND  4 , 1 1  ( ri 2  ,  O  ,  1 )  ,  1 1  ( n 2  ,  1  ,  1  )  ,  5 :  n 2-ri 2+ 1 :  I F  n 

2=105  THEN  n 2=0: AFTER  200  GOSUB  130 

150  AFTER  8  GOSUB  130 

160  RETURN 

170 

180  MODE  1 

1. 90  I NK  1 ,0:1.  NK  2,18:1  NK  3,6:  PAPER  1  :  BORDER  O :  CLS 

200  PLOT  O , 1 96 , 2 : DRAWR  20 , 80 : DRAWR  60 , O : DRAWR  -20 , -80 : DRAWR  -10, O : DRAWR 
10,40: DRAWR  -40,0: DRAWR  -10,-40: DRAWR  -10,0: PLOT  22,246:DRAW 
R  40 , O : DRAWR  5 , 20 ; DRAWR  -40 , O : DRAWR  -5 , -20 

210  PLOT  80, 196: DRAWR  20,80: DRAWR  60,0: DRAWR  -20 , -80: DRAWR  -10,0: DRAWR  1 
8 , 70 : DRAWR  - 1 5 , O : DRAWR  -7 , -30 : DRAWR  - 1 O , O : DRAWR  7 , 30 : DRAWR 
-  i.  5 , 0 :  DRAWR  -  1 8  ,  -70 :  DRAWR  - 1 0  ,  O 


TAST  -  35 


GAMES 


220  PLOT  1 60 , 1 96 1  DRAWR  2.10.DRAWR  SO.OiDRAWR  7.30.DRAWR  -SO.OiDRAWR  »0,4 
O: DRAWR  60,0. DRAWR  -2,-10. DRAWR  -SO.OiDRAWR  -S,-20iDRAWR  50, 

OiDRAWR  -12, -50i DRAWR  -60,0 

230  PLOT  240, 196i DRAWR  20, 80 i DRAWR  60, OiDRAWR  -2, -»O. DRAWR  -SO.OiDRAWR  - 
4,-20. DRAWR  30, OiDRAWR  -2,-10iDRAWR  -SO.OiDRAWR  -»0,-40iDRAW 
R  -10,0 

240  PLOT  320, 196i DRAWR  2, »OiDRAWR  2S, OiDRAWR  » 4, 60 i DRAWR  -25, OiDRAWR  2,1 
OiDRAWR  60, OiDRAWR  -2,-10iDRAWR  -23, OiDRAWR  -14, -60i DRAWR  23 
.OiDRAWR  -2, -»OiDRAWR  -60,0 

250  PLOT  400, 196i DRAWR  20, BO. DRAWR  60,0. DRAWR  -2, -»O. DRAWR  -SO.OiDRAWR  - 
14 ,-60. DRAWR  40,0. DRAWR  7 ,30. DRAWR  -22, Q. DRAWR  2, 10. DRAWR  33 
, Ot DRAWR  -13,-50. DRAWR  -60,0 

260  PLOT  480, 196i DRAWR  20, BOi DRAWR  10,0. DRAWR  -7,-30. DRAWR  40,0. DRAWR  7, 
30. DRAWR  10,0. DRAWR  -20 , -80. DRAWR  -l O, OiDRAWR  10, 40 i DRAWR  -4 
0,0. DRAWR  -10, »40. DRAWR  -10,0 

270  PLOT  305, 196. DRAWR  13.70.DRAWR  -23, OiDRAWR  2.10.DRAWR  60, OiDRAWR  -2, 
-10. DRAWR  -23,0. DRAWR  -»3,-70. DRAWR  -»0,0 

280  LOCATE  14, 4. PEN  3.PRINT“JAN  PEDERSEN" . LOCATE  16, 6. PEN  3i PR1NT"PRE8EN 
T" 

290  LOCATE  17, 16. PEN  3. PRINT  CHR*<164)|"  1985“ 

300  LOCATE  l,23iPEN  3iPRINT"P  for  PLAY  X  for  INSTRUKTION  “.LO 

CATE  13,23 

310  IF  INKEY<27>-0  TMEN  r ø-REMAIN <0> .  BOUND  133 ,0 , 0, » i  GOTO  330 
320  IF  INKEY (33) -O  THEN  rø-REMAIN(O) i  80UND  133,0,0, »iQOTO  3700 
340  GOTO  310 
350  MODE  O 

360  KEY  1 38 ,  “col  »  *bbff.cøll  »<bb4øiøp*ød  køy  »O, »©"♦CHR* < 13) 

370  økud*-8TRING*(40,CHR*<134>) 

380  SPEED  KEY  1,1 

390  INK  0,26.  INK  »,OiINK  2,22i  INK  3,6i INK  4, lli  INK  3,18i  INK  6,5l  INK 
7, Øs  INK  0,25: INK  10,7iINK  »1,6. INK  12, 3i INK  13,0 
400  INK  13,0 
410  INK  14,0 
420  y-12ix-2 
430  økø*-“  " 

440  uhyr-Oiuhyr*«"" 

430  uhyrnr-1 
460  r*rat-0 
470  øc-0 

400  high*-BTR*(hi <0) ) 

490  økøtypø-0 

300  bombøy-O«  bornbox-O.  bombø-0 
310  faøl -999 

320  1 øvøl — 1 

330  »lv-3i  liv*-CHR*(163)+CHR*<»66) 

340  »lv*-liv*^»iv»*»iv*^llv* 

530  landl*-LEFT*(land*,20) 

360  PAPER  1. BORDER  Oi  CL8 
370  ‘ 

500  ‘kontrol  vlnduøt 
390  ‘ 

600  WINDOW  »1,1,20,21,23 
610  PAPER  VI , 4 1  CL U  •» 

620  LOCATE  i»,»,2iPAPER  «1,4iPEN  »1 ,3i PRINT« 1 , "BCOREi 00000" 

630  LOCATE  «1,»,4|PAPER  «»,4iPEN  *» ,6i PRINT« 1 , "HIGH  i “|MID* (high*, 2, 6) 
640  LOCATE  •», »3,2. PAPER  «»,4iPEN  •» ,7i PRINT«» , "FUEL. 999" 

630  LOCATE  •» , »3,4iPAPER  «l,4iPEN  •» ,2iPRINT«l ,LEFT*(l lv*. (1 »v«2) ) 

660  LOCATE  K,y. PAPER  »iPEN  2. PRINT  CHR* < 163) | CHR* < 166) 

670  LOCATE  1.20.PAPER  1 . PEN  BiPRINT  STRING* <20 , CHR* <1 43) ) 

680  EVERY  30  QOBUB  2310 
690  * 

700  '»øin  loop 
710  ‘ 

720  IF  INKEY < 67) -O  THEN  G0BU8  1030 

730  IF  JOY <0)“l  OR  J0Y<0)-17  OR  J0Y<0)»9  OR  J0Y<0)-3  TMEN  GOBUD  1030 
740  IF  INKEY (69) "O  THEN  GOBUD  1090 

730  IF  JOY <0) "2  OR  J0Y<0)-10  OR  J0Y<0)-I0  OR  JOY (O) -6  THEN  GOBUB  1090 
760  IF  INKEY (27) "O  THEN  GOBUB  »130 

770  IF  JOY (O) “4  OR  J0Y(0)-20  OR  J0Y<0)-5  OR  J0Y(0)-6  THEN  GOBUB  1210 
780  IF  INKEY (34) -O  THEN  GOBUB  1210 

790  IF  JOY (O) "8  OR  JOY (O) -10  OR  JOY (O) -9  OR  JOY (O) -24  THEN  GOBUB  1180 

BOO  IF  INKEY (71) -O  THEN  GOBUB  1270 

810  IF  JOY (O) >-16  THEN  GOBUB  1270 

820  LOCATE  1 , 19i PAPER  1 1  PEN  BiPRINT  landl*» 

830  lønd*-land*+LEPT*(land*,l) 

040  1 and*-RIGHT*(land*, 180) 

030  1 and 1 *-LEFT* ( 1  and* , 20) 

B60  IF  uhyr-0  AND  uhyrnr-1  THEN  GOBUD  1660 
870  IF  uhyr-0  AND  uhyrnr-2  THEN  GOBUB  1730 
080  IF  uhyr-0  AND  uhyrnr-3  THEN  GOBUB  1840 
890  IF  uhyr-0  AND  uhyrnr-4  THEN  GOBUB  1360 
900  IF  uhyr-1  TMEN  GOBUB  1400 

910  IF  uhyrnr-1  AND  RND>0.3  THEN  IF  RND>0.73  AND  yligø>2  THEN  yllgø-yllg 
ø-l  ELGE  IF  yl  igø<  16  THEN  yl  lgø-yl  igøH 

920  IF  uhyrnr-4  AND  RND>0.3  THEN  IF  RND>0.73  AND  yllgø>2  THEN  yl lgø-yl ig 
ø-l  ELSE  IF  yl lgø< 16  THEN  yl lgø-yl lgø+1 
930  IF  uhyrnr-2  THEN  yllgø-y 

940  IF  y-uhyry  THEN  IF  x-uhyrx  OR  x+l-uhyrx  OR  x+2-uhyrx  THEN  økøK-xtøkø 
y-yiøkø*-"  "iramt-ramt+1 i uhyr-Oi økøtypø-1 i  GOBUB  1930iG0B 
UB  2120 

930  IF  y-uhyry  THEN  IF  x-l-uhyrx  THEN  økøx-uhyrx i økøy-yi økø*-"  "i  ram 
t-ramt^ 1 i uhyr-Qi GOBUB  I930i GOBUB  2120 

960  IF  uhyrnr-2  AND  y-uhyry  AND  bombø-0  AND  uhyrx>(x+3)  AND  RND>0.3  THEN 
boAbøx- (uhyrx-2) i bombøy -uhyryi bombø-1 
970  IF  bombø-1  AND  uhyrnr-2  THEN  GOBUB  2290 

980  IF  y-bombøy  THEN  IF  bo»bøx-x  OR  bombøx-x+1  THEN  bombøx-Oi bortbøy-Oi  ø 

køx-x i økøy-yi økø*-"  “»  bombø-Oi økøtypø-1 iGOSUD  I930iG0SUB 

2120 

990  IF  uhyrnr-3  THEN  IF  uhyrx-ma  THEN  maxx-0 
1000  IF  fuø»<l  THEN  GOBUB  2370 
1010  GOTO  720 
1020  ‘ 

1030  ’  op 
1040  * 

1030  IF  y<3  THEN  RETURN 

1060  LOCATE  x.yiPAPER  liPRINT"  " i y-y-1 i LOCATE  x.y.PAPER  liPEN  2i PRINT  C 
HR* (165) | CHR* (166) 

1070  RETURN 
1080  ’ 

1090  'nød 
1100  ‘ 

1 1 10  * IF  y >17  THEN  økøx-x i økøy-y i økø*-"  " i økøtypø-1 1 GOBUB  1930.G0BUB  212 
Oi RETURN 

1120  LOCATE  x.yiPAPER  1. PRINT"  " i y-y+1 . LOCATE  x.yiPAPER  li  PEN  2i PRINT  C 
HR* (163) | CHR* <166) 

1130  RETURN 
1140  ' 

1130  *  hOJrø 
1160  ’ 

1170  IF  x  >13  THEN  RETURN 

1100  LOCATE  x.yiPAPER  1. PRINT"  "i x-x+1 i LOCATE  x.y.PAPER  ».PEN  2i PRINT  C 
HR* (163) | CHR* (166) 


1190  RETURN 
»200  ' 

1210  '  vønøtrø 
1220  ' 

1230  IF  x<3  THEN  RETURN 

1240  LOCATE  x.y.iPAPER  liPRINT"  "  i  x-x-»  l  LOCATE  x.yiPAPER  l .  PEN  2. PRINT  C 
HR* (163) | CHR* (166) 

1230  RETURN  ’ 

1260  ' 

1270  *  økud 
»280  ‘ 

1290  økudl -20- (x+2) 

1300  økudx-(x+2) løkudy-y 

1310  LOCATE  økudx.økudyi PAPER  li  PEN  3i PRINT  LEFT* (økud*, økudl ) 

1320  SOUND  130,10,-1,13,1,2 

1330  LOCATE  økudx , økudyi PAPER  li  PEN  liPRINT  SPACE* (økudl ) 

1340  IF  uhyrOO  AND  uhyrnr<>2  THEN  IF  y-uhyry  THEN  økøx-uhyrx  i  økøy-uhyry 
. økø*-"  "iøkøtypø-2i GOBUB  1930i GOBUB  2210i uhyr-Oi ramt-ramt+ 

1 

1330  IF  uhyrOO  AND  bombø-1  THEN  IF  bombøy-økudy  THEN  økøy-bombøy. økøx-b 
ombøx.økø*-"  " i økøtypø-2. OOSUB  1930. bombø-O. bombøx-O. bombøy 
-O. RETURN 

1360  IF  uhyrnr-2  AND  uhyrOO  AND  bombøyOy  THEN  IF  y-uhyry  THEN  økøx-uh 
yrx i økøy-uhyryi økø*-"  " i økøtypø-2. GOBUB  1930i GOBUB  2210. uhy 
r-0. ramt-ramt+1 

1370  IF  uhyrnr-4  AND  y-uhyry  THEN  308UB  3940 1 r ømt -21 1 IF  løvøl <27  THEN  lø 
vøl -løvøl +1 1  INK  8, løvøl 
1380  RETURN 
1390  ' 

1400  ’uhyrø 
1410  ' 

1420  IF  uhyrx<3  THEN  IF  uhyrnr-3  AND  møxx-0  THEN  LOCATE  uhyrx .uhyryi PAPE 
R  1. PRINT"  ".uhyr-0. RETURN 

1430  IF  uhyrx<3  AND  uhyrnr-4  THEN  LOCATE  uhyrx .uhyryi PRINT"  uhyrnr-1 i 
uhyr-Oiramt-Oi  IF  løvøl<27  THEN  1 øvøl -1 øvøl ♦ 1 1  INK  8, løvøl iRET 
URN  ELSE  RETURN 

1440  IF  uhyrx<3  AND  uhyrnr<>3  THEN  LOCATE  uhyrx .uhyryi PAPER  liPRINT"  "i 
uhyr -O i  RETURN 

1430  IF  r amt >20  THEN  IF  uhyrnr-2  AND  bombø-1  THEN  LOCATE  bombøx .bombøy i 
PRINT" 

1460  IF  r ømt >20  TMEN  IF  uhyrnr<4  THEN  uhyrnr-uhyrnr+1 iuhyr-0. rømt-Oi RET 
URN.  ELØE  uhyrnr-1 i uhyr-0. rømt-O. RETURN 
1470  LOCATE  uhyrx .uhyryi PAPER  liPRINT"  " 

1480  IF  uhyry<yllgw  THEN  uhyry-uhyry+1 
1490  IF  uhyry>yl i  gø  THEN  uhyry-uhyry-» 

1300  IF  uhyrnr<  >3  THEN  uhyrx-uhyrx-i 
1310  IF  uhyrnr-3  AND  møxx-1  THEN  uhyrx-uhyrx+1 
1320  IF  uhyrnr-3  AND  møxx-0  THEN  uhyrx-uhyrx-1 
1030  LOCATE  uhyrx , uhyryi PAPER  l.PGN  9. PRINT  uhyr* 

1340  RETURN 
1530  ‘ 

1360  'fuøltønk 
1370  ‘ 

1300  uhyr*-CHR* ( 1 80) ♦CHR* (101) 

1390  uhyr-1 

1600  INK  9, 1  NT  (  <RND*13)  -M3)  ,0 
1610  SPEED  INKt 10,(1 øvøl • 10) 

1 620  uhyrx- 1 9 i uhyry- I NT ( RND« 1 6 ) ♦ 1 
1630  yl i  gø- 1 NT ( <RND»3) +7) 

1640  RETURN 
1630  ' 

1660  'uhyrø  1 

1670  ‘ 

1600  uhyr *"CHR*( 167) ♦CHR* (168) 

1690  uhyr-1 

1700  INK  9, INT ( (RND* 1 3 > ♦ 1 3 ) 

1710  uhyrx-19i uhyry-INT (RND*16>^» 

1720  yl 1 gø-INT ( (RND»3) *7) 

»730  RETURN 
»740  ‘ 

1730  ’uhyrø  2 
1760  * 

»770  uhyr*-CHR* ( 169) ♦CHR* ( 170) 

1780  uhyr-1 

1790  INK  9, INT ( (RND*»3)*»3) 

1800  uhyrx- 19i uhyry-INT (RND* 16) +1 
1810  yligø-y 
»820  RETURN 
1030  ' 

1840  ‘  uhyrø  3 
1850  ' 

1860  uhyr*-CHR* ( 171 ) +CHR* ( 172) 

1870  uhyr-1 

1880  INK  9, INT ( (RND* 13) +13) 

1890  uhyrx-1 1 uhyry-INT  <RND»15) *2 

1900  yligø-uhyry 

1910  ma-INT (RND» 1 3) *3 

1920  møxx-1 

1930  RETURN 

»940  * 

1930  ’  økøploølon 
1960  ' 

1970  CALL  68CA7 

1 900  LOCATE  økøx , økøyi PAPER  liPRINT  økø* 

1990  LOCATE  økøx , økøyi PAPER  1 1  PEN  10. PRINT  CHR* (182) 

2000  IF  økøtypø-1  THEN  BOUND  133,100,-1,13,1,0,31 
2010  IF  økøtypø-2  THeN  BOUND  1,40,-1,13,1,3 
2020  LOCATE  økøx , økøyi PAPER  liPRINT"  " 

2030  LOCATE  økøx , økøyi PAPER  li  PEN  1 liPRINT  CHR* ( 183) +CHR* ( 184) 

2040  IF  økøtypø-2  THEN  BOUND  2,10,-1,13,1,3 
2030  LOCATE  økøx .økøy.PAPER  liPRINT"  " 

2060  LOCATE  økøx , økøyi PAPER  ItPEN  12.PRINT  CHR* ( 1 B3> ♦CHR* ( 1 86) 

2070  IF  økøtypø-2  THEN  BOUND  4,80,-1,13,1,3 
2080  LOCATE  økøx , økøyi PAPER  liPRINT"  « 

2090  økøtypø-0 
2100  RETURN 
2110  ‘ 

2120  ‘  man  dOr 
2130  ' 

2140  liv-liv-1 

2150  IF  liv-0  THEN  CALL  I.BCA7«  GOTO  2600 
2160  LOCATE  »1 , 13,4. PAPER  «1 ,4. PRINT»1 , " 

2170  LOCATE  • 1 , 1 3 , 4 1  PAPER  41.4.PEN  « 1 , 2. PRINT« 1 , LEFT* < 1  i v* , < 1  i v*2) ) 

2180  LOCATE  2, 12. PAPER  1 1  PEN  2. PRINT  CHR* ( 165) +CHR* ( 166) i x-2i y-12 
2190  RETURN 
2200  ’ 

2210  '  øcorø 
2220  ’ 

2230  øc-øc+ 10 
2240  øc*"STR*(øc> 

2250  øcl*-øc*.  FOR  f-0  TO  (6-LEN (øc 1 *> +1 ) . øc*-øc*+"  "iNEXT 
2260  LOCATE  «1, 7, 2. PAPER  «1,4.PEN  »1,3. PRINT  »1 ,MID*(øc*,2,6) 
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GAMES 


2270  RETURN 
22B0  ' 

2290  -bombe 
2300  ' 

2310  LOCATE  bombe«  .bombeyi PAPER  li.PRINT"  " 

2320  IF  bombe« <2  THEN  bombe-Oi  hombex-Oi bombey-Oi RETURN 
2330  bombe« -bombe« -1 

2340  LOCATE  bombu« , bombeyi PAPER  li  PEN  13 1  PRINT  CHRAU07) 

2330  RETURN 
2360  ’ 

2370  'fuel -0 
23B0  * 

2390  IF  uhyr-1  THEN  LOCATE  uhyre .uhyryi PRINT-  - 

2400  IF  uhyr-2  THEN  IF  bombe-1  THEN  LOCATE  bombe« , bomb eyi PRINT"  " 

2410  uhyr-0ibombe-0 
2420  FOR  f-y  TO  17 

2430  LOCATE  x.fiPEN  2. PAPER  li  PRINT  CHRA < 165) | CHRA < 166) 

2440  LOCATE  x,fi PRINT" 

2450  NEXT 

2460  eksA-“  " i okpy-f i oke«-x i 60BUD  1950 

2470  B03UB  2120 

2480  f udi -999 

2490  RETURN 

2500  * 

2510  ’  fuel  ned 
2320  ' 

2530  IF  1 1 v< 1  THEN  RETURN 
2340  fuel -fuel -l 
2530  f uol A-STRA (fuel ) 

2360  IF  f uel -9  OR  fuol-99  THEN  LOCATE  # 1 , 1 8 , 2i PAPER  »1,4iPEN  #1 , 7i PRINT# 

2570  LOCATE  NI , 18,2iPAPER  Nl,4iPEN  N 1 ,7i PRINTN  1 ,MIDA (f uol A, 2,3) 

2380  RETURN 
2390  • 

2600  •  *a*r dig 

2610  l-0lh-0l*-320iy-270lF0R  «-l  TO  BllBOUND  1 ,2004« »2, 1 , 7. SOUND  2,«, 1,7 
c  HOVE  K.ytDRAMR  l,0,2lDRRWR  O.hjDRRWR  -l.O.ORRWR  0,-hlK-»-4l 
y-y-2ll-l-Blh-h»4lNEXT 

2620  LOCATE  6, 16, PEN  9| SPEED  INK  40,40|PAPER  2| PRINT “SAME  OVER” 

2630  FOR  0-31  TO  O  BTEP  -Il  INK  9,1  MOD  26|F0R  1-0  TO  giSOUND  l,f,l,7lB0U 

ND  2,1-0,1»7,0,0|NEXT|NEXT 

2640  PAPER  OlCLBlINK  3,6,2|INK  13,2,6 

2630  nh.-OiFOR  (-0  TO  4| IF  *c<hl<«>  TMEN  NEXT, nh«-l i  GOTO  2690 
2660  IF  (-0  TMEN  «-l  ELBE  •*( 

2670  FOR  0-4  TO  •  BTEP  -llhl lg)-hl (g-l) ihi *<g) “hi*(g-l ) l NEXT  g 

26B0  hl  (!>-6Clhl*(!>-* - ■ 

2690  PEN  9i LOCATE  3,2| PRINT"HIBH  SCORE- 


2700  FOR  g-0  TO  4l  LOCATE  l,g«4iPEN  8i PRINT  g* 1 1 LOCATE  3,g»4lPRINT" I • | I P 
EN  4 1  PRINT  hl* (g) ■ LOCATE  14,g*4lPEN  SlPRINT  hllgllNEXT 

2710  MOVE  1 2 , 393 I DRANR  613,0, 3| DRAWR  0,-130lDRAWR  -613,0|DRAWR  O.lSOlMOV 
E  16,3911 DRANR  607 ,0 , 13i DRAWR  0,-l26i0RAWR  -607,0iDRAWR  0,12 


2720  IF  nh*  THEN  FOR  1-1  TO  BiLOCATE  l.liPRINT  CMR* (111 iNEXT i »n-1 i t l-Oi t 
2-OlEVERV  10  OOSUB  SOOOlGOTO  2930  _ 

2730  PEN  6iL0fcATE  2, 1 1  i PRINT-BRUG  • i CMR* (2331 1 “6  FIRE/OPACE" i  LOCATE  4,12 
I  PR  I NT -FOR  AT  3KRI0E  NAVN” 

2740  »»""ABCDEFGH! JKLMNOPORBTUVWXYZ .  ,*" 

2750  PEN  14) LOCATE  3,13tPRINT-A  B  C  D  E  F  0  H" I LOCATE  3,I7|PRINT-I  J  K  L 
M  N  O  P”  l  LOCATE  3,19|PRINT"0  R  S  T  U  V  W  X-lLOCATE  3.2UPRI 
NT-Y  Z  .  ,  *  -CHR* 1 1 1 CMR* (Bl "  -CMR* ( 1 ) CMR* 1 13) 

2760  LOCATE  3,24|PRINT  CMR* ( 1 ) CHR* ( 13) 1 1  PEN  13l PRINT— ENTER  -||PEN  14lPR 
INT  CHR* 1 1 ) CMR* IB) t I  PEN  13i PRINT--DELETE" i 
2770  FOR  g-)  TO  20lk*-INKEY*lNEXT 

27B0  LOCATE  4,1*4|INK  U,20,1|PEN  lliPRINT  hl*Il)|hl(l) 

2790  l.-ll»-4Biy-lB2in«*--- 

2B00  MOVE  M , y i DRAWR  S6,0,1|DRAWR  0,-28iDRAWR  -36,0|DRAWR  0,2B 
2010  t l-Oi t2-0iBh-l iEVERY  10  GOSUD  3000 
2820  k*-INKEY*i j-JOYIO) 

2830  IF  k*<>-  "  AND  k*<>"o"  AND  k*<>"p"  AND  J<>4  AND  JOB  AND  J<>16  THEN 
2820 

2840  MOVE  H , y i DRAWR  36 , O, O i DRAWR  O, -28 i DRAWR  -36, O i DRAWR  0,28 

2830  IF  <kA-"  “  OR  J-16)  AND  le-31  AND  neAO""  THEN  neA-LEFTA  <neA ,  LEN  (ne 

A) -1 ) i  LOCATE  4  , f  »4 1  PRINT  net |  WHILE  kA—  "  OR  JOOikA-INK 

EYA: J-JOY  <0) i WEND 

2860  IF  <kA-“  "  OR  J-16)  AND  le-32  THEN  2910 

2870  IF  kA-"p"  OR  J-B  THEN  x-x+64i le-1 e+l i IF  h-360  THEN  « -4Qi y-y-32i IF  y 
-34  THEN  H-48i y-102i 1 e-1 

2080  IF  kA-"o"  OR  J-4  THEN  «-«-64i  le-lo-1 1  IF  x  — 16  THEN  x-496: y-y*32i  IF 
y-214  THEN  «-496:  y-06i  1  e-32  , 

2890  IF  kA-"  "  OR  J-16  AND  le<31  THEN  naf-naA+MIDA (eA, le, 1 ) ■ LOCATE  4,f+4 
i  PRINT  neAi WHILE  KA-“  "  OR  J< >0i kA-INKEYA i J-JOY (O) i WENDi IF  L 
EN (ne*) >9  THEN  2910 

2900  MOVE  x ,yi DRAWR  36,0,liDRAWR  0,-28iDRAWR  -56,0iDRAWR  0,28iQ0T0  2820 


2910  WINDOW  1 ,20, 10,23iCLSiWINDOW  1 , 20 , 1 , 23i FOR  g-l  TO  20i kA-INKEYAi NEXT 
2920  LOCATE  4,f*4iPRINT"  " i  hi  * < f ) -ne* 

2930  PEN  4 1 LOCATE  4,f*4iPRINT  neAi LOCATE  14,f*4iPEN  SiPRINT  ec i  FOR  f-1  T 
O  BiLOCATE  1,1  i  PRINT  CHRA < 1 1 > i NEXJ 
2940  FOR  f-l  TO  SOOOiNEXT  s 

2930  LOCATE  1,23iPAPER  13|PEN  9i PRINT"TRYK  SPACE/FIRE" 

2960  IF  INKEYAO"  "  AND  JOY <0)0 16  THEN  2960 
2970  ro-REMAIN(O) i SOUND  133,0iG0T0  120 
2980  1 
2990  ‘ 

3000  IF  t2"29  THEN  on-4 

3010  IF  NOT  SQ ( 1 )  AND  2  THEN  SOUND  1 ,pl (ti ,0,0) ,pl <tl , 1 ,0) , iS.em tl-tl+l 
3020  IF  NOT  SQ <4)  AND  2  TMEN  SOUND  4, pi <t2,0, i) ,pi <t2, 1 , 1) , 13,eni t2-t2*l 
i IF  t2-36  THEN  t 1 -Oi t2-0i en- 1 
3030  RETURN 
3040  ‘ 

3030  MODE  li  INK  1,4,17iSPEED  INK  13,13lL0CATE  13,12iPEN  liPRINT"ET  OJEBL 
IK" 

3060  DIM  tl<l03,J,2) ,nn<4> ,hl <4> ,hi* <4>« RIBTORE  3330i cr-40i nn <0> -B3i nn < 1 
>-l04ihiA<0>-"J.P  DATA  " i  HI A< 1 ) -"FODLAPPER" i  HI  * <2> -"ARNOLD" « 

Hl  * (3) -"KLUMP" i  HI A (4) — "SKVAT “ i  FOR  F-0  TO  4i HI <F> - <3-F) * lOOi NEXT 
3070  FOR  N-O  TO  1 

3080  FOR  f-0  TO  nn  <n) i  READ  t 1 <f ,0,n> ,dur A 

3090  IF  durA-"q“  THEN  dur-cr/2 

3100  IF  dur*-“c“  THEN  dur-cr 

3110  IF  dur A-"dc *'  TMEN  dur-cr^cr/2 

3120  IF  durA-"m"  TMEN  dur-cr*2 

3130  IF  dur #-"•'*  THEN  dur-cr*4 

3140  ti <f , 1 ,n) -dur 

3150  NEXT : NEXT 

3160  DIM  pi <36,1,1) 

3170  FOR  f-0  TO  33 1  READ  pi <f ,0,0) ,durA 
3180  IF  durA-"qM  THEN  dur-20 

3190  IF  durA-"c"  THEN  dur-40. 

3200  IF  durA-"dc"  THEN  dur-60 
3210  IF  durA-"m"  THEN  dur -80 
3220  IF  durA-"dm"  THEN  dur-160 
3230  pi <f ,1,0) -dur iNEXT 


3240  FOR  f-0  TO  55: READ  pi <f ,0, 1 > ,durA 

3230  IF  durA-"q"  THEN  dur-20 

3260  IF  durA-"c"  THEN  dur-40 

3270  IF  durA-“dc"  THEN  dur-60 

3280  IF  durA-"ei"  THEN  dur-00 

3290  IF  durA-"dm"  THEN  dur-160 

3300  pi <f ,l,l)-duriNEXT 

3310  RETURN 

3320 

3330  DATA  204 ,m, 31 9,q , 358 , q , 284 , q ,319 ,q , 358 ,c , 179 ,c , 213, q , 179 , dc ,239 , m, 2 
84, c, 358 , c, 319, e, 284, m, 319, q, 338, q, 284, q, 319, q, 358, c, 179, c, 2 
13, q, 179, dc, 239, c, 284, q, 338, q, 319, c, 319, c, 358, s 

3340  DATA  284 ,m,319 ,q ,338 ,q , 384 ,q ,319,q ,338, c , 179 ,c ,213 ,q , 179, dc , 239 ,m,2 
84, c, 338, c, 319, s, 284, «, 3l9,q, 338, q, 284, q, 319, q, 338, c, 179, c, 2 
13, q, 179, dc, 239, c, 284, q, 338, q, 319, c, 319, C, 338, s 

3330  DATA  190,dc , 179 , q , 139 , c , 238 , c , 239 , dc , 213, q , 239 , c , 1 79 ,c , 179, c , 213, c , 
233, c, 213, c, 239, 9, 284, m, 319, q, 358, q, 284, q, 319, q, 338, c, 179, c, 

213,q, 1 79, dc, 239, c, 284, q, 338, q, 31 9, c, 31 9, c, 338, e 

3360  DATA  716 ,m , 478 ,c , 379, c ,338 ,c , 368 ,c , 336 ,q , 426 , dc , 7 16 , m , 478, c , 368 ,c , 4 
78, q, 336, q, 478, q, 479, q, 239, q, 233, q, 284, q, 319, q, 338, c, 470, c, 3 
36, q, 368 , q, 368, c, 368, c, 426, c, 306, m, 478, c, 478, q, 368, q, 336, c, 336, C, 368, q, 7 
1 6 , q , 368 , q , 478 , q , 338 , q , 368 , q , 478 , q , 338 , q 

3370  DATA  716 , « , 478 ,c ,379 , c , 338 ,c , 368 ,c , 336 ,q , 426 , dc , 716 ,m , 478 , c , 368 ,c , 4 
78, q, 336, q, 478, q, 379, q, 239, q, 233, q, 284, q, 31 9, q, 338, c, 478, c, 3 
36, q, 368, q, 368, c, 360, c, 426, C, 306,«, 478, c, 478, q, 368, q, 336, c, 336, C, 368, q, 7 
16 , q , 368 , q , 478 , q , 330 , q , 368 ,q , 478 , q , 358 , q 

3380  DATA  319 ,dc ,319 ,q ,319 ,c ,379 ,c , 338 ,dc , 338 , q , 358 ,c , 338 ,c ,338 , c , 338, c , 
426, c, 338, c, 379, e, 338, c, 478, c, 436, q, 368, q, 368, c, 368, c, 426, c, 

306 , m , 478 , c , 470 , q , 368 , q , 336 , c , 336 , c , 368 , « 

3390  ' 

3400  DATA  31 9 , q , 2B4 ,q , 233 ,dc , 239 , q , 239 ,c , 213, c , 213, « , 233 , c , 213, c , 239 , dc , 
233, q, 239, c, 284, c, 233, dm 

3410  DATA  3 1 9 , q , 284 , q , 233 , dc , 239 , q , 239 , c, 213, c, 213, m, 233 , c , 2 1 3 , c , 239 , c , 2 
33, q, 239, c, 284, c, 319, dm 

3420  DATA  213 ,c , 159, dc , 169 ,c , 190 ,c , 213, c , 21 3 ,m , 233 ,c , 213 ,c , 239 , dc , 233, q , 
239, c, 284, c, 233, dm, 213, c, 139, dc , 169, c, 190, c, 21 3, c, 213,«, 233, 
c, 213, c, 239, dc, 253, q, 239, c, 284, c, 319, dm 

3430  DATA  306 , q , 426 ,q , 319 , dc , 284 , q , 204 ,c , 233 ,c , 233 , m , 319 ,c , 233 ,C , 284 , dc , 
3 I 9, q ,284 , c ,338, c ,319 , dm 

3440  DATA  306 . q , 426 , q , 319 ,dc , 284 , q , 284 ,c , 233 , c , 233 ,m, 319 ,c , 233 ,c , 284 , dc , 
3 1 9 , q , 284 , c , 426 , q , 478 , q , 306 , dm 

3430  DATA  253, c , 233 ,dc , 21 3, c , 239 ,c , 233 , c , 233, m , 319 ,c , 233, c , 284 ,c , 31 9 ,q , 2 

04, c, 338, c, 3 19, dm, 233, c, 233, dc, 21 3, c, 233, c, 233, c, 233, m, 319, c 

, 233, c, 284, dc, 31 9, q, 284, c, 426, q, 478, q, 306, dm 

3460  ‘  grafik 

3470  SYMBOL  AFTER  96 

3400  8YMB01.  96,0,0,110,204,214,102,220 
3490  SYMBOL  123,48,0,120,12,124,204,118 
3300  SYMBOL  163,31,8,248,64,47,40,64,233 
3310  SYMBOL  166,0,128,240,8,7,120,128,0 

3320  SYMBOL  167 ,0 ,0,0,0 , 13 , 63 ,0 , 1 1  SYMBOL  168,0,63,63,139,162,196,136,240 
3330  SYMBOL  169,0,0,0, 13, 63, 0,0, Oi SYMBOL  170,0,31,126,180,232,124,62,31 
3340  SYMBOL  1 71 , 13 , 31 ,34 , 233 , 63 , 0 , 42 ,21 1  SYMBOL  172,240,240,220,233,232,0 
,160,00 

3330  SYMBOL  173,3,7,23,31 ,39, 191 , 127, 235i SYMBOL  174,120,224,240,248,234, 
22 1,234, 233 i 8YM00L  173,0,0,0,24,126,126, 232 , 233 
3360  SYMBOL  176,4,4,36,233,109,66,163,66 
3370  SYMBOL  177,126,193,233,126,90,90,90,90 

3380  SYMBOL  170,0,2,2, 10, 10,42, 170, 233i SYMBOL  179,120,120,160,168,168,16 
9,169,233  • 

3390  SYMBOL  180, 31 , 48 ,67 , 130, 131 , 66 , 30 , 31 1  SYMBOL  101,240,12,194,1,129,2, 
12,248 

3600  SYMDOL  182,20,64 ,9, 160,3, 144 ,2, 40i 8YMB0L  183 , 2 , 16 , 60 , 1 7 , 1 20 , 34 , 0, 1 1 

8YMB0L  104, 16,68, 16,1,40, 130, 32, ØiBYMBOL  183,3,20,33,66,66,3 

3,28,3: SYMBOL  186,192,36,132,66,66, 132,36,192 

3610  SYMBOL  187,0,0,0,32,249,32,0,0 

3620  *  benn 

3630  RESTORE  3640:  FOR  f-l  TO  100: READ  ei 1 andA-1 andA+CHRA (a) i NEXT  f 
3640  DATA  32,173,174,173,174,173,174,173,32,173,32,173,173,175,173,174,3 
2,32,32,32,164,32,74,46,80,32,60,63,04,63,32,32,49,37,36,33, 
32,32,173,174,173,174,173,173,173,32,163,166,32,163,166,32,163,166,32,17 
3 

3630  DATA  174,32,173,174,32,173,173,173,173,173,174,32,167,160,32,176,32 
,176,32,176,32,169.170,32,167,168,32,169,170,32,177.32,177,3 
2,173,174,173,173,173,174,173,175,32,171,172,32,171,172,32,239,239,239,3 
2,173,174,173 

3660  DATA  173,173,173,174,32,170,179,170,179,32,176,32,248,248,32,176,32 
,173,173,173,174,32,63,77,83,43,70,73,71,72,84,32,173,173.17 
4,173,174.32,177,32,167,160.32,167,170,32,171,172,32,177,32,173,174,173, 
178, 179 

3670  DATA  173,173,174,170,179,32,239,239,239,32,173,173 

3600  ENV  1 , 13 , - 1 , 20i ENV  2,13,1,1|ENT  1 , 15 , -10 , 1 1 ENT  -2 , 1 , 10 , 1 1 ENT  -3,10, 

3, 1 , 10, -3, 1 : ENV  3, 13,-1 ,3: ENV  4 , 1 ,-13, 1 , 13, 1 , 1 ,6,-1 ,2 

3690  RETURN 

3700  •  Instruktion 

3710  CLS: MODE  liINK  0,26iINK  l.OiPAPER  Oi  BORDER  26iPEN  1 
3720  LOCATE  16,2iPRINT"AMS-FIGHT" 

3730  LOCATE  l,4i PRINT"  Du  er  1 edor  pA  et  RUM  SKIB  som  skel . " 

3740  LOCATE  1 , 6 1  PR INT"fors'ge  et  redde  JORDEN  fre  fjendun." 

3730  LOCATE  1 ,8: PRINT"F'rste  angrebs  b'lge  består  ef  *må":LOCATE  l.lOlPR 
INT"  JAGERFLY  som  kommer  Ind  fro  h'Jre" 

3760  LOCATE  1 , 12: PRlNT"Anden  engrobs  b'lge  består  ef  små" iLOCATE  l,14iPR 
INT"  BOMBEFI^  som  også  kommer  Ind  fre  h'Jru" 

3770  LOCATE  1 , 16i PRINT"Tredl e  engrubs  b'lge  består  ef  "iLOCATE  l,IBiPRJN 
T"  UFO'ersom  kommer  Ind  fre  venstre* " 

3780  LOCATE  l,20i PRINT"  Til  sidst  kommer  der  en  FUELTANK  som  "iLOCATE  1,2 
2: PRINT,,skal  skydes  for  at  fA  benxin  pA.  M 
3790  LOCATE  13,23i PR I NT "TRYK  EN  TASTE" 

3000  CALL  6DBIO1 CALL  6DB10 

3810  CLS i LOCATE  1 6 , 2 1  PR I NT " AMS-F I GHT " 

3820  LOCATE  1,4iPRINT"Du  styrer  med: " 

3830  LOCATE  13 , 6: PRINT"JOYST IK" 

3840  LOCATE  13 ,8: PRINT"el ler" 

3030  LOCATE  13, lOi PRINT"0  for  OP" 

3860  LOCATE  13, 12:PRINT"A  for  NED" 

3070  LOCATE  13, 1 4 1 PRINT"P  for  MOJRE" 

3080  LOCATE  13, 16i PR I NT "O  for'  VENSTRE" 

3B90  LOCATE  13, 18iPRINT"Z  for  SKUD" 

3910  LOCATE  1, 23 1  PR I NT"  TRYK  EN  TASTE  FOR  START" 

3920  CALL  bBBlGiCALL  LBB10 
3930  GOTO  120 
3940  '  fuel  op 
3930  CALL  6BCA7 

3960  FOR  f-l  TO  1 00 1 . SOUND  1,40,1,15,1,3 
3970  fuel -fuel ♦! 

3980  f uel A-BTRA  <f uel ) 

3990  IF  fuel -9  OR  fuel -99  THEN  LOCATE  *1 , 18, 2i PAPER  #1,4iPEN  Hl ,7l PRINT# 
1," 

4000  LOCATE  # 1 , 1 8 , 2: PAPER  Ml,4iPEN  #1 ,7i PRINT#1 , MIDA <f uel A, 2,3) 

4010  NEXT 
4020  RETURN 
4040  END 
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Commodore  64 


Tegngenerator 


Nu  kan  du  lave  dine  helt  egne  tegn,  f.eks.  lave  bogstaverne  om  til 
figurer.  Det  er  endda  meget  nemt,  menustyret  og  på  danski  Sel¬ 
ve  menuen  står  altid  ude  til  højre,  så  vi  skal  blot  fortælle  lidt  om 
de  forskellige  modes: 

F1  brugestil  at  angive,  at  et  tryk  påjoystickensfire-knap  vil  sæt¬ 
te  et  punkt. 

F3  bruges  til  at  angive,  at  du  vil  slette  et  punkt  med  tryk  på joy- 
stickets  knap. 

F5  bruges  til  de  forskellige  funktioner.  F5  hopper  til  disse  og  så 
bruges  F1  og  F3  til  at  gå  op  og  ned  i  menuen. 

F7  bruges  i  tegnemode,  når  man  vil  have  andre  farver.  T ryk  igen, 
når  disse  er  ændret. 

En  kort  oversigt  over  menuen: 

PRØV:  Se  et  nydefineret  tegn.  brug  joystick  til  at  flytte  cursor 
med  (fire  flytter  bogstaver  til  den  store  ramme). 

HENT:  Hent  et  tegn  fra  hukommelsen  over  i  tegnrammen. 
DATA:  Udskriver  data  til  tegnet  i  rammen. 

RVS:  Vender  tegnerammen  -  sat  til  slukket  og  slukket  til  sat. 
CLR:  Man  kan  slette  enten  lille  tegnegeneratoreller  storfirkant  - 
joystick  op  slette  tegnefirkant  og  ned  sletter  den  store  firkant 
forneden. 

SAVE:  Læg  tegnet  fra  tegnerammen  ned  i  hukommelsen. 
FYLD:  Fylder  tegnerammen,  modsat  CLR. 

SLUT :  Sletter  programmet  og  laver  et  nyt,  der  opretter  det  nye 
tegnsæt,  der  så  kan  saves  på  normal  vis.  Det  tager  omkring  to 
minutter  at  lave  dette  program. 

Når  det  senere  loades,  vil  det  tage  20  sekunder,  før  du  har  dit 
eget  tegnsæt. 

Claus  Jørgensen 


1  REM  ****************************** 
****** 


REM  * 
M.  J. 
REM  * 


DATAGENERATOR  3.0 


CLAUS 


5  REM  ****************************** 
****** 

10  SK  = 1 066  ! KS= 1256  s IK = 1864 : F I =0 : R= 128 
: K0=  1 506 : PE  =56320 : KV= 12288 
:TT*="<CRSR  NED7  )  " 

11  FU= 1 1 16: GOSUB  135 

12  POKE  53280, O : POKE  53281,0 

s POKE  646, 3: PRINT  CHR*<  147) 

13  RR=3iPl  =  1025: GOSUB  20 : RR=8 : P  1  =  1065 
: P2  =1074: GOSUB  2 1 : P 1  =  1385 : GOSUB  20 

14  RR=16:P1=1276: GOSUB  20:RR=1 

:  P  1  =  13  16  s  P2=  1332  '•  GOSUB  2l:RR=16 
s  P 1  =  1 396  s  GOSUB  20 

15  RR=27:P1  =  1 465  i GOSUB  20:RR  =  7 

: P 1  =  1505 : P2= 1 532 : GOSUB  2l:RR=26 
s  P 1  =  1 786  s  GOSUB  20 

16  FOR  1=0  TO  9: FOR  T=0  TO  3: READ  D 

: POKE  1 098 +  T  + I *80 ,D+ 128 : NEXT ! NEXT 

17  FOR  T=Q  TO  127:P0KE  1864+T,T: NEXT 
s  FOR  1=0  TO  1 : FOR  T=0  TO  7: READ  D 
: POKE  FU+T,D+ 128 : NEXT 

18  FU= 1 1 96 : NEXT ! FOR  T=0  TO  16  s  READ  D 
: POKE  1036+T, 128+DsNEXT 
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19  FOR  T =0  TO  7: READ  D 

: POKE  12288+ 1336  +  T ,D :NEXT:  GOTO  22 

20  FOR  T =0  TO  RR i POKE  P 1 +T, 160 : NEXT 
: RETURN 

21  FOR  T  =  0  TO  RR:POKE( Pl+T*40) , 160 
: POKE« P2+T*40) , 160 : NEXT: RETURN 

22  POKE  KS , 32 : POKE  1096,170 

:  POKE  1256,32 : F I =0 : SK = 1066 : Y=0 : X=0 

23  SP=PEEK«  SK ) : POKE  SK,  167 

: FOR  T=0  TO  20: NEXT: POKE  SK,SP 
: W=PEEK«  197) : JV=PEEK< PE) 

24  IF  ki=3  THEN  POKE  1176,32 

:  POKE  1 036 , 32 : GOSUB  134:G0T0  151 

25  IF  JV=U1  AND  F I  =0  THEN  POKE  SK, 
160 

26  IF  JV=U1  AND  F I  =  1  THEN  POKE  SK,  32 

27  IF  JV= 126  THEN  QQ=-40 : Y= Y- 1 
: GOTO  35 

28  IF  JV= 119  THEN  QQ=  1  : X=X+ 1 : GOTO  35 

29  IF  JV  = 125  THEN  QQ=40 : Y=Y+ 1 : GOTO  35 

30  IF  JV= 123  THEN  QQ= - 1 : X=X- 1 : GOTO  35 

31  IF  W=4  THEN  POKE  1096,170 

:  POKE  1  1 76 , 32 : POKE  1256,32:FI=0 

32  IF  Ul=5  THEN  POKE  1176,170 

:  POKE  1096, 32: POKE  1256,32:FI  =  1 

33  IF  W=6  THEN  POKE  1176,32 

:  POKE  1096, 32: GOSUB  134: GOTO  40 

34  GOTO  23 

35  IF  Y< 1  THEN  Y» li  GOTO  23 

36  IF  Y >8  THEN  Y=8:G0T0  23 

37  IF  X«  1  THEN  X=l:GOTO  23 

38  IF  X  >8  THEN  X =8: GOTO  23 

39  SK  =SK  +QQ : GOTO  23 

40  JV=PEEK«  PE  )  :  UJ=PEEK<  197) 

: POKE  KS,  190: FOR  T=0  TO  40: NEXT 
4  1  IF  JV  =  126  THEN  UIW= -80  :  YY= YY- 1 
: GOTO  46 

42  IF  JV  =  125  THEN  UJW=80 :  YY=YY+  1 
: GOTO  46 

43  IF  JV=1U  THEN  ON  YY+1  GOTO  96,49, 
37,76,82,71 ,82,1 16 

44  IF  Ul=6  THEN  POKE  KS,32 

: POKE  1096, 1 70 : F  I  =0 : GOSUB  134 
: GOTO  22 

45  GOTO  40 

46  IF  YY<  O  THEN  YY=0:G0T0  40 

47  IF  YY >7  THEN  YY=7:G0T0  40 

48  POKE  KS  ,  32  :  KS=KS  +UIUI:  GOTO  40 

49  JU=0 : IF  JV=111  THEN  GOSUB  134 

50  IK= 1864 : XU=0 : YU=0 

51  JV=PEEK< 56320) :OP=PEEK<  IK) 

: POKE  IK,  167: FOR  T=0  TO  40: NEXT 
: POKE  IK  ,QP 

52  IF  JV=111  THEN  148 

53  IF  JV=  126  THEN  QUJ=-40  :  YU=YU- 1 
: GOTO  58 

54  IF  JV= 125  THEN  QUJ=40 :  YU  =  YU+ 1 
: GOTO  58 

55  IF  JV  = 119  THEN  QW=i:XU=XU+l 


: GOTO  58 

56  IF  J V  = 123  THEN  QW= - 1 : XU=XU- 1 
: GOTO  53 

57  GOTO  51 

58  IF  YU<  O  THEN  YU=0:G0T0  50 

59  IF  YU  >3  THEN  YU=3:G0T0  51 

60  IF  IK  >= 1992  THEN  IK=199l:G0T0  51 

61  IF  IK=< 1363  THEN  IK=1864:G0T0  51 

62  IK=  IK+QUl:  GOTO  51 

63  PU=0 : FOR  F 1 =0  TO  7:PU=PU+1 

64  LI«PU)=(  PEEK«  KV+CH*8+F  1  )  )  :  NEXT  F1 

65  FOR  T =0  TO  7:TV=0:F0R  TT=0  TO  7 

66  WE=L  I«  T+l  )  -2t«  7 -TT)  -TV 

67  IF  UIE<0  THEN  NEXT  TT 

63  IF  UIE  >  =0  THEN  POKE« 1066+T*40+TT) , 
160 

69  IF  UIE  >=0  THEN  TV=TV+2t< 7-TT) 
s  NEXT  TT 

70  NEXT  T : POKE  KS, 32: GOTO  22 

71  IF  JV=111  THEN  GOSUB  134 

72  JU=l: GOSUB  50 

73  FOR  F 1 =0  TO  7:BIN=0:F0R  F2=0  TO  7 

74  IF  PEEK«  1066+F 1 *40 +F2 ) = 160  THEN  B 
IN=B IN+2t(  7 -F2 ) 

75  NEXT  F2 : POKE  KV+« CH *8 ) +F 1 ,B IN 
: NEXT  F 1 : POKE  KS, 32: GOTO  22 

76  FOR  F 1 =0  TO  7: FOR  F2=0  TO  7 

77  Z=PEEK<  1066+F1 *40+F2) 

78  IF  Z  =  1 60  THEN  PP=32 

79  IF  Z  =32  THEN  PP=160 

30  POKE«  1066+F 1*40+F2) ,PP 

81  NEXT :  NEXT :  POKE  KS,  32 ‘.GOTO  22 

82  IF  YY =4  THEN  ER=32: GOSUB  145 

83  IF  YY =6  THEN  ER=160. 

84  FOR  F 1 =0  TO  7: FOR  F2=0  TO  7 

85  POKE«  1066+F  1  *40+F2  ), ER 

36  NEXT: NEXT: GOSUB  95: POKE  KS,32 
: GOTO  22 

37  . . . 

: GOSUB  95 

88  FOR  F 1 = JH  TO  HJ:BI=0:F0R  F2=0  TO  7 
39  IF  PEEK«  1066+F1 *40+F2)=160  THEN  B 
I  =B  I +2 1(  7 -F2 ) 

90  NEXT  F2 : RT =RT  + 1 

91  DT*=OT*+STR*(  BI ) :NEXT  F1 

: PR  I NT " «  HOME , R VS  ON)  " +TB*SPC<  12 >D 
T*:POKE  1316, 160: POKE  1356,160 

92  JH  =4 : H J  =7 :  IF  RT>  =  7  THEN  TB*=TT* 

: POKE  KS, 32: GOTO  22 

93  TB*=TB*+"( CRSR  NED ) " : DT*= " u 

94  GOTO  88 

95  FOR  1=0  TO  1 : FOR  T=0  TO  14 

: POKE  1317+T+I*40 ,32 : NEXT : NEXT 
: RETURN 

96  POKE  KS ,32 : K0= 1506 : SX=0 : SY=0 

97  PS=PEEK« KO)  :POKE  KO,  167 

: FOR  T  =  0  TO  20: NEXT: POKE  KO, PS 

98  JV=PEEK(  PE) :W=PEEK<  197) 

93  IF  W=6  THEN  GOSUB  134: POKE  KS,190 
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CHFlLLENGE 


:  GOTO  40 

100  IF  JV  =  126  THEN  UJE  =  -40  :  SY=SY- 1 
s  GOTO  106 

101  IF  JV  =  125  THEN  LIE  =40  :  SY=SY+ 1 
: GOTO  106 

10S  IF  JV  =119  THEN  UJE=  1  :  SX=SX+ 1 
: GOTO  106 

103  IF  JV  = 123  THEN  WE=- 1 : SX=SX- 1 
:  GOTO  106 

104  IF  JV=U1  THEN  GOSUB  134:  GOTO  111 

105  GOTO  97 

106  IF  SY< 1  THEN  SY=1:G0T0  97 

107  IF  SY >7  THEN  SY=7:G0T0  97 

108  IF  SX< 1  THEN  SX=l:GOTO  97 

109  IF  SX  >26  THEN  SX=26:G0T0  97 

110  KO  =  KO+UJE  :  GOTO  97 

111  JU=l: GOSUB  50 

112  FOR  Fl=< KV+CH*8)T0< KV+CH*8+7) 

113  POKE  F 1 ,255-PEEK<  F 1 ) : NEXT 
: POKE  KO , CH 

114  FOR  F 1 =( KV+CH*S)TO<  KV+CH*8+7 ) 
:A=A+1 

115  POKE  F1 ,255-PEEK< F1 ) : NEXT: GOTO  97 

116  L  I  =  1020 

117  L*="  " :D*=M " :FOR  T=0  TO  7 
:0*=MID*<  STR*< PEEK<  12288+E*8+T) ) , 

2 ) : L*=L*+D*+ " , " : NEXT 

118  IF  E  = 1 28  THEN  121 

119  PR  I NT " (  CLR , CRSR  NED3  )  "STR*(  L  I  )  *D 
ATA"L*"<  CRSR  VENSTRE , SPACE ) " 

: PR  I NT "LI  =  " LI  +  1 “ :  E  =  "  E  +  1 " 

: GOTO  1 1 7(  HOME) " 

120  FOR  T =63 1  TO  635:P0KE  T,13:NEXT 
: POKE  198, 5: END 

121  PRINT"< CLR, CRSR  NED2 ) M 
: POKE  809,246 

122  PRINT" 1000  DATA169, O, 133,251 , 169, 
48,133,252, 169,0, 133,253,169,208, 
133" 

123  PR  I NT" 100 1  DATA254, 162,0, 160,0, 
177,253, 145,251 ,200,208,249,230, 
252,230" 

124  PR  I NT "1002  0ATA254 ,232 ,224 , 16 , 
208,240,96“ 

125  PRINT" 1003  P0KE52 ,48 : P0KE56 ,48 
: P0KE56334 ,PEEK<  56334 )AND254 " 

126  PR  I NT" 1004  POKE 1 ,PEEK<  1 )AND25 1 
:F0RT  =  0T036-.REA0D:  POKE  12 *4096  +  T,D 
: NEXT " 

127  PRINT" 1005  SYS12*4096 

: POKE  1  ,PEEK(  1  )0R4 : P0KE56334 , 

PEEKC 56334 )0R 1 " 

128  PRINT" 1006  P0KE53272, 

<  PEEKC 53272 )AND240 )0R 12 : CC=0 
: FORT =0T0 127 “ 

123  PRINT" 1007  FOR  I =0T07 : READD 

: POKE 12288  +CC*8  +  I ,0 : NEXT: CC=CC  +  1 
: NEXT " 

130  PR  I NT "GOTO  1 62(  HOME ) “ 


131  FOR  T=63 1  TO  640:P0KE  T,13:NEXT 

132  POKE  198, 9: END 

134  FOR  T =0  TO  800 : NEXT: RETURN 

135  POKE  52 ,48 : POKE  56,48 

: POKE  56334, PEEK< 56334 )AND  254 
: POKE  1 , PEEKC  1 )AND  251 

136  FOR  T =0  TO  36: READ  DA 

: POKE  12  *4096  +T ,DA : NEXT  T 
: SYS  12*4096 

137  POKE  1  ,PEEK<  1 >0R  4 

: POKE  56334 , PEEKC  56334 )0R  1 

133  POKE  53272, C PEEK< 53272 )AND  240)0 
R  12: RETURN 

139  DATA  169,0,133,251,169,48,133, 
252, 169,0,133,253, 169,208, 133,254, 
162,0, 160 

140  DATA  0,177,253,145,251,200,208, 
249,230,252,230,254,232,224, 16, 
208,240,96 

141  DATA  20,5,7,14,19,12,5,20,16,18, 
48,22,8,5,14,20,4,1,20,1,18,22,19, 
46,3,12 

142  DATA  18,32,19,1,22,5,6,25,12,4, 
19,12,21 ,20,6,15, 18,7,18,21,14,4, 
2,1,7,7,18 

143  DATA  21,14,4,4,1 

144  DATA  20,1,7,5,14,5,18,1,20,15,18, 
32,51 ,46,48,255,195, 195,195,195, 
195,195,255 

145  JV=PEEK( PE) : IF  JV=126  THEN  RETURN 

146  IF  JV=  125  THEN  FOR  F1=0  TO  6 

: FOR  F2=0  TO  25:P0KE<  1506+F1*40+F 
2 ) ,ER : NEXT : NEXT: GOTO  22 

147  POKE  KS  ,32 : FOR  T=0  TO  80 : NEXT 
: POKE  KS , 1 90 : GOTO  145 

148  IF  JU=1  THEN  CH=PEEK<  IK  ): RETURN 
143  IF  JU=0  THEN  CH=PEEK<  IK ) : GOTO  63 

150  POKE  KS  ,32  s  GOTO  22 

151  POKE  1  125, 188:FA=1 :QR=1 125:QY=0 

152  JV=PEEK<  PE ) : POKE  QR,188 
:UJ=PEEK<  197) 

153  IF  UJ=3  THEN  GOSUB  134:P0KE  QR,32 
: GOTO  22 

154  IF  JV= 126  THEN  QQ=-80 : QY=QY- 1 
: FA= 1 : GOTO  159 

155  IF  JV= 125  THEN  QQ=80 : QY=QY+ 1 : FA=0 
: GOTO  159 

156  IF  JV=U1  AND  FA=1  THEN  CL=CL+1 

: POKE  53281, CL: IF  CL=16  THEN  CL  =  -1 

157  IF  JV=111  AND  FA=0  THEN  LC=LC+1 

: POKE  53280, LC:IF  LC=16  THEN  LC=-1 

158  GOTO  152 

159  IF  QY<  O  THEN  QY=0:G0T0  152 

160  IF  QY > 1  THEN  QY=l:GOTO  152 

161  POKE  QR ,32 : QR=QR+QQ : GOTO  152 

162  PRINT  162-F : PR INT"<  BLAA ,CLR , 

CRSR  NED3 ) "F  s  PR  I NT “F= "F+ 1  " :L=" 162" 
: IFF< =LT  1 1 62( L . BLAA , HOME ) " 

: POKE  1 93 ,2 : END 
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73  DATA  24,60,126,219,153,24,24,24,24,48,96,255,253,96,48,24 
90  PAPER  0 

100  LET  a=ll:  LET  b=27:  LET  d=-l :  LET  x=ll:  LET  y=4:  -LET  m=l 
110  LET  a*="f-"  :  LET  b*=" *" 

120  LET  c  = O!  LET  n=0 
2a0  REM  >>>  SPILLET  <<< 

210  INK  6:  BEEP  .01,6 

240  IF  IN  49150=253  THEN  LET  c  =  l:  LET  a*=">*":  LET  d=0 

250  IF  IN  61438=254  THEN  LET  c  =  -l:  LET  a*="'t":  LET  d=0 

260  IF  IN  57342=254  THEN  LET  d  =  l:  LET  a*= LET  c=0 

270  IF  IN  57342=253  THEN  LET  d»-l!  LET  a*="*-":  LET  c=0 

280  LET  a=a+c:  LET  b=b+d 

290  IF  ATTR  <a,b)>l  THEN  60  TO  600 

300  PRINT  AT  a,b;a*;:  PRINT  AT  a-c,b-d;"  "! 

400  REM  >>>  spiller  2  <<< 

410  INK  3:  BEEP  .01,9 

440  IF  IN  65278=253  THEN  LET  n=ll  LET  b*="4-" :  LET  m=0 

450  IF  IN  64510=253  THEN  LET  n=-l:  LET  b*="t>":  LET  m=0 

460  IF  IN  65022=253  THEN  LET  m=i:  LET  b*="-»":  LET  n=0 

470  IF  IN  65022=254  THEN  LET  m=-ll  LET  b*="*":  LET  n=0 

480  LET  x=x+n :  LET  y=y+m 

490  IF  ATTR  (x,y)>l  THEN  GO  TO  700 

500  PRINT  AT  x,y;b*;:  PRINT  AT  x-n,y-m;B  -  5 

510  GO  TO  200 

600  REM  >>>  DOD  <<< 

610  FOR  q= 1  TO  20:  BEEP  .01, q:  NEXT  q 
640  LET  1=1-1 

630  IF  1=0  THEN  PRINT  AT  5,2;  INK  O;  PAPER  7; "  VENSTRE  SPILLER  HAR  VUNDET  "! 

670  GO  TO  800 

690  GO  TO  25 

700  REM  >>>  DOD  <<< 

710  FOR  q=- 1  TO  -20  STEP  -1:  BEEP  .01, q:  NEXT  q 
720  LET  w=w-l 

730  IF  w=0  THEN  PRINT  AT  3,3!  INK  O;  PAPER  7}"  HOJRE  SPILLER  HAR  VUNDET  “I!  GO 
TO  800 

760  GO  TO  25 

800  PRINT  AT  10,10;  FLASH  l!"Nyt  spil  ?":  INPUT  g* 

810  IF  g*="J"  OR  g*="J"  THEN  RUN 

820  IF  g$="n"  OR  g*="N“  THEN  PRINT  AT  10, 10; "OK,  FARVEL":  STOP 
830  GO  TO  800 

900  BORDER  O:  PAPER  O:  INK  7:  CLS 
910  PRINT  AT  0,-10!  "LIGHT  CYCLE " 

920  PRINT  AT  3,0; "DIN  OPGAVE  ER  KLAR:" 

930  PRINT  ’ "MUR  MODSTANDEREN  INDE  FOR  HAN 
940  PRINT  "GOR  DET  AF  MED  DIG  !!" 

950  PRINT  AT  9,0;  "HOJRE  SPILLER:" 

960  PRINT  "O . OP" 

970  PRINT  "P . HOJRE" 

980  PRINT  "O . VENSTRE" 

990  PRINT  "L . NED" 

1000  PRINT  AT  16,0J "VENSTRE  SPILLER:" 

1010  PRINT  "W . OP" 

1020  PRINT  "S . HOJRE" 

1030  PRINT  "A . VENSTRE" 

1040  PRINT  "Z . NED" 

1050  PRINT  AT  21,17;  "GOD  FORNOJELSE" 

1060  PAUSE  1000 
1070  RUN 
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I  dette  spil  skal  du.  som  fredsakti¬ 
vist.  flyve  hen  over  en  slette  og 
samle  så  mange  raketter  op  som 
muligt.  Der  er  dog  andre  end  dig. 
der  er  interesserede  i  raketterne 
(og  af  en  anden  grund).  Når  du  har 
været  5  baner  igennem,  når  du  til 
et  fort.  hvor  du  kan  aflevere  bom¬ 
berne  til  destruktion. 

Jesper  Vitved ' 


Amstrad 


Peace  Maker 


10  REM  **PEflCEMflKER  JESPER  VITVED** 

20  SYMBOL  AFTER  241 
30  SYMBOL  244,31.0.65.99,127,3,1.0 
40  SYMBOL  245. 255. 64, 252, 198, 194, 254, 252, 144 
50  SYMBOL  246, 16,56,56,56,56, 124, 198, 130 
60  SYMBOL  250, 16, 124, 56, 18, 124, 144, 40, 36 
70  SYMBOL  247, 16, 16, 16, 16, 16,  16, 16, 16 
80  SYMBOL  242,0,0,65,99,127,3,1,0 
90  SYMBOL  243, 64, 64, 252, 198, 194, 254, 252, 144 
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100  A$="  " +CHRi ( 244 ) +CHR* ( 245 ) + “  ":B$=CHRi(246):Ct="  "+CHR$(250):D*=CHR*(247):E$="  "+CHR$ C 242 > +CH R« ( 243) 

110  ft=l :B=14:C=1 

120  RFLYT=l:POINT=0:RfiKETTER=0:INl=20:T!D=240:BONl=0:BftN2=l 
130  REM  **INSTRUKRTI0N** 

140  as 

150  SPEED  KEY  25, 5 

160  L0CAE  1,2:PRINT  1  “CHRi(74)+CHR$(86)"-EACEMAKER" 

170  LOCATE  1, 4sPRINT  ‘  I  DETTE  SPIL  ER  DU  FREDSAFIVIST.  DU  SKAL  FLYVE  I  DIN  HELIKOPTER  HEN  OVER  EN  SLETTE,  HVOR  DER  ER  STILLET 
EN  MÆNG-  DE  RAKETTER  OP.  DISSE  RAKETTER  SKAL  DL1  SAA  SAMLE  OP.  DIT  ARBEJDE  FORSTYRES  DOG" 

180  LOCATE  i, SPRINT  ‘AF  EN  NEGET  USYMPATISK  MAND,  DER  IFORT  COWBOYHAT (GOET  HVEM (RR) )  PROVER  AT  SAM-  LE  DE  SAME  RAKETTER.  HVIS  DET 
LYKKES  FOR  HAN  AT  SAMLE  3  RAKETTER  SER  DET  SORTUD  FOR  DIG  OG  DEN  RESTERENDE  VERDEN. 

190  LOCATE  1, 14 : PRINT  "  HVIS  DU  NAAR  IGENNEM  5  BANER  KOMMER  DU  TIL  ET  PORT  HVOR  DU  AFLEVERER  RAKETTER-  NE,  SAA  DE  KAN  STAA  DER  OG 

RUSTE  OP.  I  FORTET  FAAR  DU  OGSAA  DIN  BONUS, SAA  DF  ER  NED  AT  RUPPE  NEGLENE.  RR  GAAR  HUR-" 

200  LOCATE  1,19 SPRINT  "TIGERE  OG  HURTIGERE  FOR  HVER  BANE.  ZsHOJRE  X: VENSTRE 

H: HEJS  TRYK  X 

210  IF  UPPER$(1NKEY$)(>"’  THEN  GOTO  210 
220  IF  UPPE»(INKEY$)0"X*  THEN  GOTO  220 
230  SPEED  KEY  1, 1 
240  GOSUB  820 
250  Bl=INT(RND(l)*33)+5 
260  B2=INT(RND(l)#33)+5 
270  IF  B2-B1  THEN  GOTO  260 
280  B3=!NT(RND(l)*34)+5 
290  IF  B3=B1  THEN  GOTO  250 
300  IF  B3=B2  THEN  GOTO  260 

310  LOCATE  Bl,  23: PRINT  B4 : LOCATE  B2,23:PRINT  Bi :  LOCATE  B3,23:PRINT  Bi 
320  EM 

330  EM  PEN  6: LOCATE  A,  B: PRINT  E*:PEN  13: 

340  !$=INKEY$ 

350  Ii=UPPERi(I$) 

360  IF  I$=T  THEN  A=A+1 

370  IF  Ii=‘Z"  THEN  A=A-1 

330  IF  A=0  THEN  A=1 

390  IF  A=37  THEN  GOSUB  770 

400  EN  6: LOCATE  A,B:PRIN^  A$:EN  13 

410  IF  A+2=B1  OR  A*2=82  OR  (H2=B3  THEN  GOSUB  640 

420  IF  RFLYT=1  THEN  C=C+1 : RP_YT=0:AFTER  INI  GOSUB  780 

430  IF  C=40  THEN  C=39 

440  EN  1 : LOCATE  C,23:PRINT  C*:EN  13 

450  EN  6: LOCATE  A, B: PRINT  E»:PEN  13 

460  GOSUB  800 

470  IF  C+1=B1  THEN  RAKETTER=RAKETTER+1 :B1=0:GDSUB  *30 
480  IF  C+1=B2  THEN  RAKETTER=RAKETTER+1  :B2=0:G09.!B  G30 
490  IF  C+1=B3  THEN  RAKET TER=RAKETTER+'.:B3=0:G0SUB  630 
500  EN  6: LOCATE  ft, B: PRINT  A$:EN  13 
510  IF  RAKETTER=3  THEN  FOR  G4=l  TO  1000:NEXT  G4:G0T0  1050 
520  GOSUB  550 

530  EM  PEN  6:L0CATE  A,  B: PRINT  A$:PEN  13 
540  GOTO  320 
550  EM  »+SOUND** 

560  FOR  S2=li  TO  12  STEP  0.5 
570  SOUND  7, 100, 1,52,3,0, 10 
580  NEXT  S2 
590  ETURN 

600  FOR  Sl=100  TO  250  STEP  lOsSOUND  1, SI, 3, 15, 10, O, O 
610  NEXT  SI 
620  RETURN 

630  FOR  S2=200  TO  400  STEP  10:S0UND  1,S2, 5, 15, 10, 0,0:NEXT  S2:ETURN 
640  EM  **REB  ED** 

650  IF  I$=*M"  THEN  GOTO  660  ELSE  RETURN 

660  GOSUB  550:F0R  R£B1=15  TO  23:L0CATE  A+2-REB1 SPRINT  Dt: NEXT  REB1 
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GRATIS  MED  DETTE  NUMMER:  TO  BLADE  I  EET! 


. •  . & 

i  Awé 

1  M  ’  '  :•  '  ;  • 

ACTION: 

år* 

•  •  :/£%  io  shoot  em  Up- s, 

****■'..  DER  SKREV 

.  •  -  <  *  ,  /  HISTORIE 

Hent  SOFT  i  kiosken! 


-det  nve  nummer  ligger  der  fra  den  20/8  ti!  den  21/10. . . 


GAMES 


670  FOR  REB2=23  TO  15  STEP  -ULOCflTE  ft+2,  REB2: PRINT  B$ 

680  LOCftTE  ft+2.  REB2: PRINT  “  " 

690  NEXT  REB2 

700  GOSL©  550 

710  GOSUB  600 

720  IF  ft+2=Bl  THEN  Bl=l 

730  IF  ft+2=B2  THEN  B2=l 

740  IF  ft+2=B3  THEN  B3=l 

750  P0INT=P0INT+100 

760  RETURN 

770  GOTO  240 

780  REH 

790  RFLYT=l:TID=TID-l:RETURN 

800  LOCftTE  1.2--PRINT  ■POINT:" :POINT:LOCflTE  15,2:PRINT  'BONUS:" iTID: LOCftTE  29.2:PRINT  ' RAKETTER : “ ; RftKETER “  ”: RETURN 
810  GOTO  810 
820  REM  **BftNE** 

830  as 

840  BAN2=BflN2+l 

850  PEN  10: FOR  BflNl=l  TO  40:L0CflTE  BflN1.24:PRINT  CHM(  131): NEXT  BflNl:PEN  13 
860  ft=l:C=l 

870  IF  IN1)5  THEN  INl=INl-0.5 

880  IF  BflN2=7  THEN  GOTO  890  ELSE  RETURN 

890  GOSUB  800 

900  LOCftTE  15. 22: PRINT  CHRt(147)+CHR$(140)+CHR<(143)+CHR$(143)+CHW(140)+CHR$(153) 

910  LOCftTE  16. 23: PRINT  CHRt(147)+CHRt(159)+CHR$(159)+CHR$U53) 

920  FOR  fi=l  TO  15: LOCftTE  ft, 14:PRINT  fl*:FOR  BftN3=l  TO  100:NEXT  BflN3 
930  GOSUB  550 
940  ICXT  ft 

950  FOR  BflN4=14  TO  21:L0CftTE  ft. BflN4-l:PRINT  1  "iLOCfiTE  fl,SflN4:PRINT  flCFOR  BfiN3=l  TO  100:NEXT  BflN3 
960  GOSUB  550 
970  NEXT  BflN4 

980  IF  TID <0  THEN  GOTO  1040 

990  B0N1=TID 

1000  P0INT=P0INT+B0N1 

1010  LOCftTE  17. 5: PRINT  “BONUS!" 

1020  IN1=17 
1030  TID=240 

1040  ft=l:BflN2=l:F0R  BflN3=l  TO  1000:NEXT  BftN3: GOSUB  320:RETURN 
1050  REM  **6AME  OVER** 

1060  CLS 

1070  FOR  Gl=100  TO  80  STEP  -1 

1080  PLOT  300, GI : DRflWR  0.100:DRftWR  -100, -100: DRftWR  -50,0:DRflWR  150, 150:DRAWR  0, 140:DRflWR  50,0:DROWR  0,-140:DRflWR  150. -150 :DRflWR-50, 0 

:DRftWR  -100, 100:DRflWR  0,-100:DRfiWR  -50.0 

1090  ICXT  GI 

1100  FOR  G2=2  TO  24 

1110  FOR  G3=l  TO  40: LOCftTE  G3,G2:PRINT  CHM(  143): LOCftTE  G3. G2-1 : PRINT  "  “:NEXT  C-3 

1120  NEXT  G2 

1130  LOCftTE  1.24:  PRINT  * 

1140  LOCftTE  15, 9: PRINT  "NO  PEflCE!":LQCflTE  15,12:PRT*T  "GQME  OVER"' 

1150  FOR  G4=0  TO  1000: NEXT: RUN 


46  -  TAST 


Joystick- 

troldmand 


Her  er  noget  for  dig.  som  tror.  du 
er  god  med  en  pind...  undskyld,  et 
joystickl 

Handlingen  er  simpel:  Styr  din 
mand  gennem  den  store  skov, 
undgå  alle  træerne  og  kom  sikkert 
hjem  i  dit  hus.  Klarer  du  det,  får  du 
et  point. 


Når  du  er  startet  på  din  tur.  kan  du 
ikke  stoppe,  tempoet  er  næseknu¬ 
sende  (mod  træerne),  og  enkelte 
gange  er  det  umuligt  at  nå  ned  til 
huset  -  skoven  erjo  fyldt  med  træ- 
erl  I  (Som  en  skovjo  nu  engang  er). 
Får  du  mere  end  5  point,  vil  vi  ger¬ 
ne  høre  fra  dig.  for  så  må  du  helt 


klart  være  storebror  (ikke  lille¬ 
bror)  til  Superman.  Sjovt  nok.  at 
der  ellers  loves  bonus  ved  1 0.  20 
og  30  point... 

Hyg  dig.  ognuikkenogetmedat- 

fuskevedprogrammetshastighed, 

VELI 

Thomas  Jacobsen 


ET 

T 

T 


1  GO  SUE 
*-"TNG{ 


N|i 


S 

10 

11 

12 

16 

RIGHT 

PO=0 

18. 

19 

20 
30 
4-0 

50 

51 
53 

HI 


INSgN^NDNU"?  L_ 

IF  U$  =  "f‘  THEN  GO 
INPUT  "HØURE : 

IF  R  |  =  "  "  THEN 
IF  Ri=U$  THEN 
PRPER  1: 

0:  OUER 


INPU 


TO  1 

,  LINE  R $ 

GO  TO  10 

-  GO  TO  10 

BORDER  1:  INK  7 :  B 
0:  INUERSE  0:  LET 


RRND0HI2E  :  CLS  :  LET  S  C  =14- 
LET  du  »O :  FOR  i  =1  TO  j 
LET  r  =  INT  (RND*18)  +3 
LET  C=INT  (RND*32) 

PRINT  RT  r  ,  CJ  INK  4-;  "4" 

NEXT  i 
LET  j=j+l 

IF  PO  > H I  THEN  LET  DU  =  1:  LET 
PO 


55  PRINT  01; "HIGH  SCORE: HI; " 
SCORE: PO 

60  LET  hus =INT  (RND*32) :  PRINT 
RT  21, hus; "ft" 

70  PRINT  RT  ø,sc; 

8ø  PRUSE  200 
9ø  FOR  Ral  TO  20 
løø  LET  D*»INKEY* 

103  IF  D*  =  ”"  OR  diOUi  AhJD  d*<> 
R$  THEN  PRINT  RT  R-1,£C;":*" 

104-  IF  D*=R*  RND  SC<31  THEN  PRI 
NT  RT  r-i,sc;  "V:  LET  SC=SC+1 
105  IF  D$=U$  RND  SC  >»31  OR  dS=R 

«  BND  S  C  <  *0  THEN  PRINT  RT  f-l,SC 

•  "  .1  " 

'  106  IF  dS=U«  RND  500  THEN  PRIN 
T  RT  r  - 1 ,  s  C  ;  :  LET  tc»sc-i 

120  IF  ATTR  (C  ,SC )  =12  THEN  GO  T 
O  165 

13ø  PRINT  RT  r ,*c; 

135  PRUSE  2 
14-0  NEXT  r 

14-5  IF  SCshus  OR  d  $  =  "8"  RND  sc  = 
hus -1  OR  d  $  =  "5"  RND  SC=hUS+l  THE 
N  LET  j»j+l:  LET  K =5 :  FOR  a  =0  TO 
69:  BEEP  .001,4:  BEEP  .001,69-4 
:  NEXT  4:  LET  P0=P0+1 
14-6  IF  P0=10  OR  PO  =20  OR  P0=30 
THEN  CLS  :  PRINT  PRPER  6;  FLRSH 
1;  INK  2; RT  10,12;"  BONUS!  ":  PR 
INT  »1;  "  TRYK  EN  T  R  S 
T  !  ":  PRUSE  0:  LET  P0*P0+INT  (R 
ND*8) +1:  GO  TO  17 
14.7  IF  K  =0  THEN  GO  TO  150 
14-8  LET  K  =0 :  GO  TO  17 
15ø  INPUT  , 

160  PRINT  RT  21,RND*31J  INK  4," 


165  CLS  :  PRINT  RT  10,11;  FLRSH 
1;  "GRME  OUER" 

201  IF  DU  =  1  THEN  INPUT  "HURRR , 

DU  HRR  HIGHSCORE ! !  NRUN  (M 

RX  £8):”'  LINE  N*:  LET  N*=N$+" 

N$=N$ (  TO  28) 

202  PRINT  RT  0,0; "HIGHSCQREN  ER 
PR:  " ; HI :  PRINT  "RF:  ";N* 

205  INPUT  "EN  GRNG  TIL  (U/N)?"; 
LINE  0$ 

21ø  IF  0*=""  THEN  GO  TO  205 

211  IF  0$="U"  OR  Q$="j"  THEN  GO 
SUB  16 

212  IF  q$="n"  OR  q*="N"  THEN  ST 
OP 

213  IF  q*<>"n"  OR  q*<>"N"  OR  q* 
<>"j"  OR  q*<>"U"  THEN  GO  TQ  205 
løøø  REM  *********************** 
lølø  PRINT  PAPER  4-;"  HOME  S 

UEET  HOME  !";  PAPER  6; " 
RF  MILR  -=-  SOFT  &  DK  SOFTUARE 
";  PRPER  3,  BRIGHT  1; "  MICHAEL 
T  P  &  THOMRS  URKOBSEN.";  BRIGHT 
0;  PRPER  7; "I  DETTE  SPIL  GKLDER 
DE  OM  RT  KOMME  HUEM  I  GOD  BEH 
OLI?!  DET  GøR  DU  UED  RT  UN 

DGr  træerne, huis  du  ramler  ind  i 

ET  TRÆ  Dør  DU.  DETTE  ER  DIT 

HUS. (ft) 

1020  PRINT  "DU  KRN  KOMME  IND  RD 
DØREN  UED  DISSE  UINKLER!" 

Iø3ø  PRINT  \1/ 

1035  PRINT  '"DU  FÅR  BONUS  N8R  DU 
NflR  lø  P." 

1036  PRINT  '"PS.  HUIS  DU  BREAK ' E 
R  SR  RYGER  HIGH  SCOREN  NED  PR 
NUL !  " 

1060  RETURN 

liøø  PRPER  6:  BORDER  6:  INK  ø:  C 
LS  :  RESTORE  1110:  FOR  n «USR  "4" 
TO  USR  "h " +7 :  READ  4:  POKE  n,a: 
NEXT  n 

lllø  DRTR  24-,  6ø,  126, 255,  BIN  øløø 

Øølø,4 ,a,126 

1120  DATA  0,24.,  24-,  60, 60, 126, 24, 6 
0 

1130  DRTR  60,60,24, 126, 24, 24, BIN 
100100 , BIN  løøøølø 
114ø  DRTR  6,0,6,4,96,0,96,4 
115ø  DRTR  0,8,80,130,23,59,16,0 
116ø  DRTR  0,16,10,65,232,220,8,0 
1170  DRTR  ø, 127, 72, R, 127,72,79,0 
1180  DRTR  24, 0,60, BIN  løøøølø, BI 
N  1111110, BIN  løøøølø,  a,0 
1190  RETURN 

9999  CLEAR  :  SRUE  "H.S.H."  LINE 
1:  RUN 


Firebird  er  en  helt  ny  serie  fremragende 
lavpris  computerspil,  hvor  kvalitet  og  spil¬ 
leglæde  er  i  en  klasse  for  sig  selv. 

Læs  hvad  den  kritiske  engelske  presse  skrev: 


save: 


udsalg 
;*■  noms, 


uim-iA 


TTi 

r(r«cB  fiSGl 

ZOLYX:  »Jeg  elsker  det  - 
Zolyx  er  fremragende« 

Zzap  64. 

GUNSTAR:  »Simpelthen 
rå-suverænt«  Soft. 

ZONE  RANGER:  »Godt 
skuldret  -  Zone  Ranger  er 
great  stuff«  Zzap  64. 

Og  sådan  kunne  vi  blive 
ved.  Drøn  ned  til  din  Super- 
Soft  forhandler  og  se  de  75 
forskellige  FIREBIRD  titler. 
Det  er  virkelig  HOT  STUFF. 

U’Se- 


Commodore  64 
Amstrad 


** re, 


Super  Soft  førende 


forhandler. 


06  19  32  44 


